有没有办法在使用 .SpecialCells(xlCellTypeConstants, 1) 获取列“B”中的所有数字时,也复制同一行中的单元格?
例子:
假设脚本找到带有数字的单元格 B2、B4、B5。我如何也复制 D2、D4 和 D5?我可以这样做并且仍然使用特殊细胞吗?最终,我想将这些值复制/粘贴到另一张纸上的 A 和 B 列中。
谢谢!
Dim strOutputFile As Variant
Dim wbkOut As Workbook
Dim tenln As Range
Dim tenlnPaste As Range
Dim wbkVer As Workbook
If strOutputFile(u) Like "*Lines.csv" Then
With wbkOut.Worksheets(1)
Set tenln = wbkOut.Worksheets(1).Cells(Rows.Count, 2).End(xlUp)
Set tenlnPaste = wbkVer.Worksheets("TLines").Range("A" & .Rows.Count).End(xlUp).Offset(1).Resize(tenln.Rows.Count, 1)
wbkOut.Worksheets(1).Range("B:B").SpecialCells(xlCellTypeConstants, 1).Copy
With wbkVer.Worksheets("TenLines")
tenlnPaste.PasteSpecial xlPasteValues
End With
End With
End If