請問各位大大，有許多工作表格，例如需要把A.B欄位內的空白格篩選出來，將有資料的轉貼於其他工作表的A.B欄位，目前小弟是使用自動篩選後將空白格刪除在剪下複製貼到其他的工作表；有使用過巨集，但因為每個工作表格內的資料都不相同，故在剪下時會發生少剪或多剪的情況發生，想請問大大們是否有其他寫巨集的方式，執行內容如下：
1>將Sheet1 A.B欄位的空白格與資料格篩選出來
2>並將A.B欄位的資料格(格數不一定)轉移至sheet2 A.B欄位內
試試看這樣做
Sub test2()
Dim ar()
Dim s As Long
Sheet2.[A:B] = ""
For Each Col In Array("A", "B")
With Sheet1
For Each a In .Range(.Cells(1, Col), .Cells(.Cells(65536, Col).End(xlUp).Row, Col))
If a <> "" Then
ReDim Preserve ar(s)
ar(s) = a
s = s + 1
End If
Next
End With
With Sheet2
If s > 0 Then .Cells(1, Col).Resize(s, 1) = Application.Transpose(ar)
End With
s = 0
Next
End Sub
內文搜尋
從 APP 打開
X