我有一个 ActiveSheet 脚本,在其中获取原始数据将数据移动到 Q:V 行。我有一个运行并显示最后一行的 VBA 脚本,在这种情况下,最后一行是 77。
lastrow = .Cells(.Rows.Count, "Q").End(xlUp).Row
我想将它放在从 Q 到 V 最后一行的位置,复制并将其粘贴到工作表 1 中...
我猜它看起来像这样,但我想先在这里验证......因为我去的正常站点由于某种原因而停机维护。
Sub test()
Dim wsPOD As Worksheet
Dim wsPOT As Worksheet
Dim wsPOA As Worksheet
Dim cel As Range
Dim lastrow As Long, i As Long, Er As Long
Set wsPOD = Sheets("PO Data")
Set wsPOT = Sheets("PO Tracking")
Set wsPOA = Sheets("PO Archive")
With ActiveSheet
.AutoFilterMode = False
Intersect(.UsedRange, .Columns("A")).Cut .Range("Q1")
Intersect(.UsedRange, .Columns("D")).Cut .Range("R1")
Intersect(.UsedRange, .Columns("C")).Cut .Range("S1")
Intersect(.UsedRange, .Columns("B")).Cut .Range("T1")
Intersect(.UsedRange, .Columns("G")).Cut .Range("U1")
Intersect(.UsedRange, .Columns("F")).Cut .Range("V1")
lastrow = .Cells(.Rows.Count, "N").End(xlUp).Row
Intersect (.UsedRange.Range("Q:V" & lastrow).Copy)
Intersect (wsPOT.Range("B3:H" & lastrow).PasteSpecialxlPasteFormats)
End With
End Sub
这显然是行不通的,如果有人可以帮助我,将不胜感激。