复制并粘贴VB

我是新来的VB的世界，但我想复制一个名为Ilog电子表格上的一个选项卡的数据，并通过这一进入另一个选项卡在同一个名为日记的选项卡上的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 

这避免了任何循环。 如果你有一个相对复杂的范围，你可能想要使用自动filter，然后应付可见的行。