Question

我之前从未使用过VBA，我不知道命令和内容。我真的很想，我需要一些帮助。我只复制指定列中的可见数据并粘贴到另一个工作表，但是在运行代码时我收到了Subscript超出范围错误。在代码中我要选择第7行的行，我想我编写的这个行有点粗糙。任何人都可以检查我的代码为什么这不起作用？任何有关更好解决方案的建议都表示赞赏。

Sub CopyData()

Windows("Source.xlsx").Activate
Range("D7, F7, G7, I7, J7, K7, L7, M7, O7, AD7, AX7, CO7, CQ7, CR7, AX7").Select
Range(Selection, Selection.End(xlDown)).Select

If Selection.EntireColumn.Hidden = False Then
Selection.Copy

End If

Windows("Destination.xlsx").Activate
Range("A2").Select
ActiveSheet.Paste

End Sub

Answer 1

试一试：

tmp.Style = this.FindResource("combo_item") as Style;

Answer 2

Dim rng As Range
Set rng = Application.Intersect(ActiveSheet.UsedRange, Range("A1:H500"))'range depends your work
Windows("Destination.xlsx").Activate
rng.SpecialCells(xlCellTypeVisible).Copy Destination:=Range("A2")

或者您只是使用，

ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)

没有交叉方法。完全取决于你的工作。

如何仅将可见单元格从工作簿复制到工作簿？

2 个答案: