Vba A2，主资产清单$A$2:$AQ$10000,11，假）” 范围（“P2:P”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,16，FALSE）” 范围（“T2:T”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,20，FALSE）” 范围（“X2:X”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,24，FALSE）” 范围（“Y2:Y”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,25，FALSE）” Range（“Z2:Z”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,26，FALSE）” 范围（“AA2:AA”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,27，FALSE）” 范围（“AB2:AB”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,28，FALSE）” 范围（“AH2:AH”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,34，FALSE）” 范围（“AI2:AI”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,35，FALSE）” 范围（“AJ2:AJ”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,36，FALSE）” 范围（“AK2:AK”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,37，FALSE）” 范围（“AL2:AL”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,38，FALSE）” 范围（“AM2:AM”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,39，FALSE）” 范围（“AN2:AN”&intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,40，FALSE）” 范围（“AO2:AO”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,41，FALSE）” 范围（“AP2:AP”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,42，FALSE）” 范围（“AQ2:AQ”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,43，FALSE）” 范围（“L2:L”和intLastRow）.Formula=“=IF（$B2=”“Deleted）”，VLOOKUP（$A2，'MasterAssetList'！$A$2:$AQ$10000，12，FALSE），VLOOKUP（$A2，'DataPull'！$A$2:$BK$10000，3，FALSE））“ 范围（“M2:M”和intLastRow）。公式=“=如果（$B2=“”删除）”，VLOOKUP（$A2，‘MasterAssetList’！$A$2:$AQ$10000，13，假），VLOOKUP（$A2，‘DataPull’！$A$2:$BK$10000，21，假））” 范围（“N2:N”和intLastRow）。公式=“=IF（$B2=“”已删除）”，VLOOKUP（$A2，'MasterAssetList'！$A$2:$AQ$10000,14，FALSE），VLOOKUP（$A2，'DataPull'！$A$2:$BK$10000,22，FALSE））” 范围（“O2:O”和intLastRow）。公式=“=IF（$B2=”“已删除）”，VLOOKUP（$A2，‘MasterAssetList’！$A$2:$AQ$10000，15，FALSE），VLOOKUP（$A2，‘DataPull’！$A$2:$BK$10000，4，FALSE））” 范围（“Q2:Q”和intLastRow）.Formula=“=IF（$B2=”“Deleted）”，VLOOKUP（$A2，‘MasterAssetList’！$A2:$AQ$10000,17，FALSE），VLOOKUP（$A2，‘DataPull’！$A2:$BK$10000,7，FALSE））” 范围（“R2:R”和intLastRow）.Formula=“=IF（$B2=“”已删除）”，VLOOKUP（$A2，‘MasterAssetList’！$A$2:$AQ$10000，18，FALSE），VLOOKUP（$A2，‘DataPull’！$A$2:$BK$10000，18，FALSE））” 范围（“S2:S”和intLastRow）。公式=“=如果（$B2=“”已删除“），VLOOKUP（$A2，‘MasterAssetList’！$A$2:$AQ$10000，19，FALSE），VLOOKUP（$A2，‘DataPull’！$A$2:$BK$10000，14，FALSE））” 范围（“U2:U”和intLastRow）。公式=“=IF（$B2=”“Deleted）”，VLOOKUP（$A2，'MasterAssetList'！$A2:$AQ$10000,21，FALSE），VLOOKUP（$A2，'DataPull'！$A2:$BK$10000,5，FALSE））” 范围（“V2:V”和intLastRow）。公式=“=IF（$B2=“”已删除）”，VLOOKUP（$A2，'MasterAssetList'！$A$2:$AQ$10000,22，FALSE），VLOOKUP（$A2，'DataPull'！$A$2:$BK$10000,30，FALSE））” 范围（“W2:W”和intLastRow）.Formula=“=IF（$B2=”“Deleted）”，VLOOKUP（$A2，'MasterAssetList'！$A2:$AQ$10000,23，FALSE），VLOOKUP（$A2，'DataPull'！$A2:$BK$10000,31，FALSE））” 范围（“AD2:AD”和intLastRow.Formula=“=IF（$B2=”“Deleted）”，VLOOKUP（$A2，'MasterAssetList'！$A$2:$AQ$10000,30，FALSE），VLOOKUP（$A2，'DataPull'！$A$2:$BK$10000,23，FALSE））” 范围（“AE2:AE”和intLastRow）。公式=“=IF（$B2=“”已删除）”，VLOOKUP（$A2，‘MasterAssetList’！$A$2:$AQ$10000，31，FALSE），VLOOKUP（$A2，‘DataPull’！$A$2:$BK$10000，24，FALSE））” 范围（“AF2:AF”和intLastRow）。公式=“=IF（$B2=”“Deleted）”，VLOOKUP（$A2，‘MasterAssetList’！$A2:$AQ$10000,32，FALSE），VLOOKUP（$A2，‘DataPull’！$A2:$BK$10000,52，FALSE））” 工作表（“仪表板”）。选择 出错时继续下一步 范围（“A2:A10000”） .Value=.Value .SpecialCells（xlCellTypeBlanks）.EntireRow.Delete 以 工作表（“仪表板”）。激活 调光范围 intLastRow=单元格（Rows.Count，“A”）.End（xlUp）.Row 范围（“A2:AQ2”和intLastRow）。NumberFormat=“0；0;""""" 对于范围内的每个c（“A2:AQ2”和intLastRow） 如果Application.IsNA（c.Value），则 c、 Value=“” 如果结束 下一个 图纸（“数据提取”）。保护绘图对象：=真，内容：=真，场景：=真_ ，AllowFormattingCells:=真，AllowSorting:=真，AllowFiltering:=真 图纸（“主资产列表”）。保护绘图对象：=真，内容：=真，场景：=真_ ，AllowFormattingCells:=真，AllowSorting:=真，AllowFiltering:=真 图纸（“仪表板”）。保护绘图对象：=真，内容：=真，场景：=真_ ，AllowFormattingCells:=真，AllowSorting:=真，AllowFiltering:=真 工作表（“仪表板”）。选择 MsgBox“您的仪表板已完成运行。” Application.DisplayAlerts=True Application.ScreenUpdating=True Application.Calculation=xlCalculationAutomatic 端接头
谢谢@girlvsdata、@jdoe和@seanW333——所有这些都非常有用，让它运行得非常快！下面是最终代码，供任何想看示例的人使用Vba A2，主资产清单$A$2:$AQ$10000,11，假）” 范围（“P2:P”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,16，FALSE）” 范围（“T2:T”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,20，FALSE）” 范围（“X2:X”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,24，FALSE）” 范围（“Y2:Y”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,25，FALSE）” Range（“Z2:Z”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,26，FALSE）” 范围（“AA2:AA”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,27，FALSE）” 范围（“AB2:AB”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,28，FALSE）” 范围（“AH2:AH”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,34，FALSE）” 范围（“AI2:AI”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,35，FALSE）” 范围（“AJ2:AJ”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,36，FALSE）” 范围（“AK2:AK”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,37，FALSE）” 范围（“AL2:AL”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,38，FALSE）” 范围（“AM2:AM”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,39，FALSE）” 范围（“AN2:AN”&intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,40，FALSE）” 范围（“AO2:AO”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,41，FALSE）” 范围（“AP2:AP”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,42，FALSE）” 范围（“AQ2:AQ”和intLastRow）.Formula=“=VLOOKUP（$A2，MasterAssetList！$A$2:$AQ$10000,43，FALSE）” 范围（“L2:L”和intLastRow）.Formula=“=IF（$B2=”“Deleted）”，VLOOKUP（$A2，'MasterAssetList'！$A$2:$AQ$10000，12，FALSE），VLOOKUP（$A2，'DataPull'！$A$2:$BK$10000，3，FALSE））“ 范围（“M2:M”和intLastRow）。公式=“=如果（$B2=“”删除）”，VLOOKUP（$A2，‘MasterAssetList’！$A$2:$AQ$10000，13，假），VLOOKUP（$A2，‘DataPull’！$A$2:$BK$10000，21，假））” 范围（“N2:N”和intLastRow）。公式=“=IF（$B2=“”已删除）”，VLOOKUP（$A2，'MasterAssetList'！$A$2:$AQ$10000,14，FALSE），VLOOKUP（$A2，'DataPull'！$A$2:$BK$10000,22，FALSE））” 范围（“O2:O”和intLastRow）。公式=“=IF（$B2=”“已删除）”，VLOOKUP（$A2，‘MasterAssetList’！$A$2:$AQ$10000，15，FALSE），VLOOKUP（$A2，‘DataPull’！$A$2:$BK$10000，4，FALSE））” 范围（“Q2:Q”和intLastRow）.Formula=“=IF（$B2=”“Deleted）”，VLOOKUP（$A2，‘MasterAssetList’！$A2:$AQ$10000,17，FALSE），VLOOKUP（$A2，‘DataPull’！$A2:$BK$10000,7，FALSE））” 范围（“R2:R”和intLastRow）.Formula=“=IF（$B2=“”已删除）”，VLOOKUP（$A2，‘MasterAssetList’！$A$2:$AQ$10000，18，FALSE），VLOOKUP（$A2，‘DataPull’！$A$2:$BK$10000，18，FALSE））” 范围（“S2:S”和intLastRow）。公式=“=如果（$B2=“”已删除“），VLOOKUP（$A2，‘MasterAssetList’！$A$2:$AQ$10000，19，FALSE），VLOOKUP（$A2，‘DataPull’！$A$2:$BK$10000，14，FALSE））” 范围（“U2:U”和intLastRow）。公式=“=IF（$B2=”“Deleted）”，VLOOKUP（$A2，'MasterAssetList'！$A2:$AQ$10000,21，FALSE），VLOOKUP（$A2，'DataPull'！$A2:$BK$10000,5，FALSE））” 范围（“V2:V”和intLastRow）。公式=“=IF（$B2=“”已删除）”，VLOOKUP（$A2，'MasterAssetList'！$A$2:$AQ$10000,22，FALSE），VLOOKUP（$A2，'DataPull'！$A$2:$BK$10000,30，FALSE））” 范围（“W2:W”和intLastRow）.Formula=“=IF（$B2=”“Deleted）”，VLOOKUP（$A2，'MasterAssetList'！$A2:$AQ$10000,23，FALSE），VLOOKUP（$A2，'DataPull'！$A2:$BK$10000,31，FALSE））” 范围（“AD2:AD”和intLastRow.Formula=“=IF（$B2=”“Deleted）”，VLOOKUP（$A2，'MasterAssetList'！$A$2:$AQ$10000,30，FALSE），VLOOKUP（$A2，'DataPull'！$A$2:$BK$10000,23，FALSE））” 范围（“AE2:AE”和intLastRow）。公式=“=IF（$B2=“”已删除）”，VLOOKUP（$A2，‘MasterAssetList’！$A$2:$AQ$10000，31，FALSE），VLOOKUP（$A2，‘DataPull’！$A$2:$BK$10000，24，FALSE））” 范围（“AF2:AF”和intLastRow）。公式=“=IF（$B2=”“Deleted）”，VLOOKUP（$A2，‘MasterAssetList’！$A2:$AQ$10000,32，FALSE），VLOOKUP（$A2，‘DataPull’！$A2:$BK$10000,52，FALSE））” 工作表（“仪表板”）。选择 出错时继续下一步 范围（“A2:A10000”） .Value=.Value .SpecialCells（xlCellTypeBlanks）.EntireRow.Delete 以 工作表（“仪表板”）。激活 调光范围 intLastRow=单元格（Rows.Count，“A”）.End（xlUp）.Row 范围（“A2:AQ2”和intLastRow）。NumberFormat=“0；0;""""" 对于范围内的每个c（“A2:AQ2”和intLastRow） 如果Application.IsNA（c.Value），则 c、 Value=“” 如果结束 下一个 图纸（“数据提取”）。保护绘图对象：=真，内容：=真，场景：=真_ ，AllowFormattingCells:=真，AllowSorting:=真，AllowFiltering:=真 图纸（“主资产列表”）。保护绘图对象：=真，内容：=真，场景：=真_ ，AllowFormattingCells:=真，AllowSorting:=真，AllowFiltering:=真 图纸（“仪表板”）。保护绘图对象：=真，内容：=真，场景：=真_ ，AllowFormattingCells:=真，AllowSorting:=真，AllowFiltering:=真 工作表（“仪表板”）。选择 MsgBox“您的仪表板已完成运行。” Application.DisplayAlerts=True Application.ScreenUpdating=True Application.Calculation=xlCalculationAutomatic 端接头,vba,excel,Vba,Excel,谢谢@girlvsdata、@jdoe和@seanW333——所有这些都非常有用，让它运行得非常快！下面是最终代码，供任何想看示例的人使用 Sub RunDashboard2() Application.DisplayAlerts = False Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Sheets("Dashboard").Unprotect Sheets("DataP
Sub RunDashboard2()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets("Dashboard").Unprotect
Sheets("DataPull").Unprotect
Sheets("MasterAssetList").Unprotect
Sheets("Dashboard").Range("C:C").Value = Sheets("DataPull").Range("B:B").Value
Sheets("Dashboard").Range("A:A").Value = Sheets("DataPull").Range("A:A").Value
Sheets("Dashboard").Select
Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row).Select
Selection.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC1,MasterAssetList!R2C1:R10000C1,2,FALSE)),""Newly Inserted"","""")"
Columns("B:B").Select
Range("B2").Activate
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""Newly Inserted"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ThemeColor = xlThemeColorAccent3
.TintAndShade = -0.499984740745262
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.799981688894314
End With
Selection.FormatConditions(1).StopIfTrue = False
Sheets("MasterAssetList").Select
Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row).Select
Selection.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC1,Dashboard!R2C1:R10000C1,1,FALSE)),""Deleted"","""")"
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""Deleted"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ThemeColor = xlThemeColorAccent2
.TintAndShade = -0.499984740745262
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Selection.FormatConditions(1).StopIfTrue = False
Sheets("MasterAssetList").Select
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A1:$C1").AutoFilter Field:=2, Criteria1:="<>"
Range("A2:C2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Dashboard").Select
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Dim MAL As Worksheet
Set MAL = Sheets("MasterAssetList")
MAL.Select
Selection.RowHeight = 14.5
Sheets("Dashboard").Select
On Error Resume Next
With Range("A2:A10000")
.Value = .Value
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
Dim DB As Worksheet
Set DB = Sheets("Dashboard")
DB.Select
Selection.RowHeight = 14.5
Dim intLastRow As Integer
intLastRow = Sheets("Dashboard").Cells(Rows.Count, "A").End(xlUp).Row
Range("D2:D" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,4,FALSE)"
Range("D2:D" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,4,FALSE)"
Range("E2:E" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,5,FALSE)"
Range("F2:F" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,6,FALSE)"
Range("G2:G" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,7,FALSE)"
Range("H2:H" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,8,FALSE)"
Range("I2:I" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,9,FALSE)"
Range("K2:K" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,11,FALSE)"
Range("P2:P" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,16,FALSE)"
Range("T2:T" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,20,FALSE)"
Range("X2:X" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,24,FALSE)"
Range("Y2:Y" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,25,FALSE)"
Range("Z2:Z" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,26,FALSE)"
Range("AA2:AA" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,27,FALSE)"
Range("AB2:AB" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,28,FALSE)"
Range("AH2:AH" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,34,FALSE)"
Range("AI2:AI" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,35,FALSE)"
Range("AJ2:AJ" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,36,FALSE)"
Range("AK2:AK" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,37,FALSE)"
Range("AL2:AL" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,38,FALSE)"
Range("AM2:AM" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,39,FALSE)"
Range("AN2:AN" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,40,FALSE)"
Range("AO2:AO" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,41,FALSE)"
Range("AP2:AP" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,42,FALSE)"
Range("AQ2:AQ" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,43,FALSE)"
Range("L2:L" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 12, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 3, FALSE))"
Range("M2:M" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 13, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 21, FALSE))"
Range("N2:N" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 14, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 22, FALSE))"
Range("O2:O" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 15, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 4, FALSE))"
Range("Q2:Q" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 17, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 7, FALSE))"
Range("R2:R" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 18, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 18, FALSE))"
Range("S2:S" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 19, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 14, FALSE))"
Range("U2:U" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 21, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 5, FALSE))"
Range("V2:V" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 22, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 30, FALSE))"
Range("W2:W" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 23, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 31, FALSE))"
Range("AD2:AD" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 30, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 23, FALSE))"
Range("AE2:AE" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 31, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 24, FALSE))"
Range("AF2:AF" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 32, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 52, FALSE))"
Sheets("Dashboard").Select
On Error Resume Next
With Range("A2:A10000")
.Value = .Value
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
Sheets("Dashboard").Activate
Dim c As Range
intLastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A2:AQ2" & intLastRow).NumberFormat = "0;0;"""""
For Each c In Range("A2:AQ2" & intLastRow)
If Application.IsNA(c.Value) Then
c.Value = ""
End If
Next
Sheets("DataPull").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
Sheets("MasterAssetList").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
Sheets("Dashboard").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
Sheets("Dashboard").Select
MsgBox "Your dashboard has finished running."
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
子运行仪表板2（）
Application.DisplayAlerts=False
Application.ScreenUpdating=False
Application.Calculation=xlCalculationManual
工作表（“仪表板”）。取消保护
工作表（“数据拉动”）。取消保护
图纸（“主资产清单”）。取消保护
图纸（“仪表板”）.范围（“C:C”）.值=图纸（“数据拉动”）.范围（“B:B”）.值
图纸（“仪表板”）.范围（“A:A”）.值=图纸（“数据拉动”）.范围（“A:A”）.值
工作表（“仪表板”）。选择
范围（“B2:B”和单元格（Rows.Count，“A”）。结束（xlUp.Row）。选择
Selection.FormulaR1C1=_
=如果（ISNA（VLOOKUP（RC1，MasterAssetList！R2C1:r100000c1,2，FALSE）），“新插入的”
列（“B:B”）。选择
范围（“B2”）。激活
Selection.FormatConditions.Add类型：=xlCellValue，运算符：=xlEqual_
公式1:=“=”新插入的“”
Selection.FormatConditions（Selection.FormatConditions.Count）.SetFirstPriority
用S
Dim intLastRow as integer
intLastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("D2:D" & Cells(Rows.Count, "A").End(xlUp).Row).Select
Application.Goto Reference:="R2C4:R10000C4"
Selection.FormulaR1C1 = "=VLOOKUP(RC1,MasterAssetList!R2C1:R10000C41,4,FALSE)"
Range("D2:D" & intLastRow).Select
Application.Goto Reference:="R2C4:R10000C4"
Selection.FormulaR1C1 = "=VLOOKUP(RC1,MasterAssetList!R2C1:R10000C41,4,FALSE)"
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Sub RunDashboard2()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets("Dashboard").Unprotect
Sheets("DataPull").Unprotect
Sheets("MasterAssetList").Unprotect
Sheets("Dashboard").Range("C:C").Value = Sheets("DataPull").Range("B:B").Value
Sheets("Dashboard").Range("A:A").Value = Sheets("DataPull").Range("A:A").Value
Sheets("Dashboard").Select
Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row).Select
Selection.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC1,MasterAssetList!R2C1:R10000C1,2,FALSE)),""Newly Inserted"","""")"
Columns("B:B").Select
Range("B2").Activate
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""Newly Inserted"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ThemeColor = xlThemeColorAccent3
.TintAndShade = -0.499984740745262
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.799981688894314
End With
Selection.FormatConditions(1).StopIfTrue = False
Sheets("MasterAssetList").Select
Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row).Select
Selection.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC1,Dashboard!R2C1:R10000C1,1,FALSE)),""Deleted"","""")"
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""Deleted"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ThemeColor = xlThemeColorAccent2
.TintAndShade = -0.499984740745262
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Selection.FormatConditions(1).StopIfTrue = False
Sheets("MasterAssetList").Select
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A1:$C1").AutoFilter Field:=2, Criteria1:="<>"
Range("A2:C2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Dashboard").Select
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Dim MAL As Worksheet
Set MAL = Sheets("MasterAssetList")
MAL.Select
Selection.RowHeight = 14.5
Sheets("Dashboard").Select
On Error Resume Next
With Range("A2:A10000")
.Value = .Value
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
Dim DB As Worksheet
Set DB = Sheets("Dashboard")
DB.Select
Selection.RowHeight = 14.5
Dim intLastRow As Integer
intLastRow = Sheets("Dashboard").Cells(Rows.Count, "A").End(xlUp).Row
Range("D2:D" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,4,FALSE)"
Range("D2:D" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,4,FALSE)"
Range("E2:E" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,5,FALSE)"
Range("F2:F" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,6,FALSE)"
Range("G2:G" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,7,FALSE)"
Range("H2:H" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,8,FALSE)"
Range("I2:I" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,9,FALSE)"
Range("K2:K" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,11,FALSE)"
Range("P2:P" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,16,FALSE)"
Range("T2:T" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,20,FALSE)"
Range("X2:X" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,24,FALSE)"
Range("Y2:Y" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,25,FALSE)"
Range("Z2:Z" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,26,FALSE)"
Range("AA2:AA" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,27,FALSE)"
Range("AB2:AB" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,28,FALSE)"
Range("AH2:AH" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,34,FALSE)"
Range("AI2:AI" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,35,FALSE)"
Range("AJ2:AJ" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,36,FALSE)"
Range("AK2:AK" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,37,FALSE)"
Range("AL2:AL" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,38,FALSE)"
Range("AM2:AM" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,39,FALSE)"
Range("AN2:AN" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,40,FALSE)"
Range("AO2:AO" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,41,FALSE)"
Range("AP2:AP" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,42,FALSE)"
Range("AQ2:AQ" & intLastRow).Formula = "=VLOOKUP($A2,MasterAssetList!$A$2:$AQ$10000,43,FALSE)"
Range("L2:L" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 12, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 3, FALSE))"
Range("M2:M" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 13, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 21, FALSE))"
Range("N2:N" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 14, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 22, FALSE))"
Range("O2:O" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 15, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 4, FALSE))"
Range("Q2:Q" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 17, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 7, FALSE))"
Range("R2:R" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 18, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 18, FALSE))"
Range("S2:S" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 19, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 14, FALSE))"
Range("U2:U" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 21, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 5, FALSE))"
Range("V2:V" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 22, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 30, FALSE))"
Range("W2:W" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 23, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 31, FALSE))"
Range("AD2:AD" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 30, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 23, FALSE))"
Range("AE2:AE" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 31, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 24, FALSE))"
Range("AF2:AF" & intLastRow).Formula = "=IF($B2=""Deleted"", VLOOKUP($A2, 'MasterAssetList'!$A$2:$AQ$10000, 32, FALSE), VLOOKUP($A2, 'DataPull'!$A$2:$BK$10000, 52, FALSE))"
Sheets("Dashboard").Select
On Error Resume Next
With Range("A2:A10000")
.Value = .Value
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
Sheets("Dashboard").Activate
Dim c As Range
intLastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A2:AQ2" & intLastRow).NumberFormat = "0;0;"""""
For Each c In Range("A2:AQ2" & intLastRow)
If Application.IsNA(c.Value) Then
c.Value = ""
End If
Next
Sheets("DataPull").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
Sheets("MasterAssetList").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
Sheets("Dashboard").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
Sheets("Dashboard").Select
MsgBox "Your dashboard has finished running."
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub