时间戳

首页 > 解决方案 > 复制和粘贴时跳过列的代码

excel - 复制和粘贴时跳过列的代码

问题描述

完全VBA新手，前面已经有人回答了一个问题，救命啊！他们帮助我编写了以下代码，以便我可以复制、粘贴和转置到 Excel 工作簿的下一个可用行。

我现在在目标工作簿的目标单元格之间有空白列，用于对上述粘贴数据进行评论。我还需要复制、粘贴和转置上述评论。

s/s 标头将如下所示：

数据注释 数据注释 数据注释

等等等等。

我尝试了许多代码，但似乎总是出错，最近的是Selection.Offset(, 2).Select, and End(xlUp).Offset(1, (x - 2) * 2).

下面的当前代码完美运行，只是无法跳过列。

Dim wsDest As Worksheet
Set wsDest = Workbooks("TL CSA Master v0.2.xlsx").Worksheets("Master")

Dim wsSrc As Worksheet
Set wsSrc = Workbooks("CSA V0.4.xltm").Worksheets("CSA - TL")

Dim NextFreeRow As Long
NextFreeRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Row + 1 'find next free row in Column A

wsSrc.Range("B2:B5").SpecialCells(xlCellTypeVisible).Copy
wsDest.Cells(NextFreeRow, "A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

wsSrc.Range("G9:G28").SpecialCells(xlCellTypeVisible).Copy
wsDest.Cells(NextFreeRow, "E").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

在此先感谢，我知道这对你们大多数人来说似乎很简单！我只是想掌握这一切！

标签： excelvba

解决方案

推荐阅读