小编use*_*592的帖子

我有一个工作簿,其表大小约为20000行,52列.有时,我需要一次更新选定行的百分比.我希望使用宏来根据行中的值更新选择单元格,由第二个较小的表格映射,更新的值将输入到表1中.几乎像VLOOKUP函数,但不是如果找不到条目,​​则擦除单元格.例如,根据主机ID更改电话号码.

我尝试在下面的代码中使用数组执行此操作,以获得表1中的一组特定值,但我的值未更新.我的VBA有点生疏,所以如果有人可以查看并协助让它运行,我们将不胜感激.我想最终根据表头更新表中的任何条目.

Sub NewNameandCostCenter()
Dim myList, myRange
Dim sht As Worksheet
Dim sht2 As Worksheet
Dim LastRow As Long
Dim LastColumn As Long
Dim StartCell As Range
Dim LastRow2 As Long
Set sht = Worksheets("NewNameMacro")
Set sht2 = Worksheets("ALL")
Set StartCell = Range("A2")

'Find Last Row and Column
  LastRow = sht.Cells(sht.Rows.Count, StartCell.Column).End(xlUp).Row
  LastColumn = sht.Cells(StartCell.Row, sht.Columns.Count).End(xlToLeft).Column
'set myList array
Set myList = sht.Range(StartCell, sht.Cells(LastRow, LastColumn))
LastRow2 = sht.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
'set myRange array
Set myRange = Sheets("ALL").Range("J2:M" & LastRow2)
'Update …