Question

我是VB的新手，但是我想从名为Ilog的电子表格中的一个标签中复制数据，并将其传递到名为Journal的标签上的同一spredshhet上的另一个标签中。

当数据粘贴到新标签时，我通常会过滤掉，因此空白被忽略，所以我希望能够自动获取VB代码。

非常感谢任何帮助

Answer 1

我不确定您的要求，但以下代码将从工作表llog中的范围复制数据并粘贴到日记中。然后循环并删除空白的单元格。

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

避免任何循环。如果你有一个相对复杂的范围，你可能想要查看使用自动过滤器然后只处理可见行。

复制＆amp;粘贴VB

2 个答案: