excel - 复制粘贴 VB

Question

我是 VB 世界的新手，但我想从名为 Ilog 的电子表格的一个选项卡中复制数据，然后将其复制到名为 Journal 的选项卡上同一 spredshhet 上的另一个选项卡中。

当数据粘贴到新选项卡时，我通常会过滤掉空白，所以我希望能够让 VB 代码自动执行此操作。

任何帮助将不胜感激

Answer 1

I am not certain what you are asking, but the following code will copy data from a range on sheet llog and paste in journal. Then loop through and delete cells that are blank.

Sub test()
 Dim rng As Range
 Set rng = Worksheets("llog").Range("A1:A8")
 rng.Copy
 Set rng = Worksheets("journal").Range("A1:A8")
 rng.PasteSpecial

 For Each c In Range("A1:A8")
    If c.Value = "" Then
        c.Delete
    End If
 Next c
 Set rng = Nothing
End Sub

Answer 2

根据被复制范围的复杂性，您还可以使用：

Sub test()
 Dim rng As Range
 Set rng = Worksheets("llog").Range("A1:A8")
 rng.Copy
 Set rng = Worksheets("journal").Range("A1:A8")
 rng.PasteSpecial
 rng.SpecialCells(xlCellTypeBlanks).Delete
End Sub

这避免了任何循环。如果您有一个相对复杂的范围，您可能需要考虑使用自动过滤器，然后只处理可见行。