Question

我喜欢选择整个＆＃34;表格列＆＃34;，复制它然后将其作为值粘贴到同一个表列上。我喜欢这个宏来处理任何excel表。我录制了一个宏，但是，我无法将此绝对引用更改为相对引用：

Sub FixedColumn()
ActiveCell.Range("A1:A4950").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
End Sub

我尝试了ActiveCell.EntireColumn，但选择了整列而不是表格列。此外，我无法以正确的形式使用ActiveCell.ListOjbect。

Answer 1

我有一个不同的解决方案来定义活动表列。

按table column选择整个header，然后运行以下宏
Sub FixedColumn() Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues End Sub

多数民众赞成，它会将整个table column更改为固定值列。将其保存到PERSONAL.XLSB文件以在任何Excel文件中使用它。：）

Excel VBA：如何将范围指定为活动表列

1 个答案: