Question

我想通过使用 Ctrl + Shift + End 来录制选择整个列的宏，但如果不使用VBA则无法实现。

这是我的代码：

Sub updatestrial()

    Range(Range("A1"), Range("A1").End(xlDown)).Select.AdvancedFilter            Action:=xlFilterCopy, CopyToRange:=Range( _
    "H5"), Unique:=True

End Sub

Answer 1

您无需在VBA中选择

paths:
  /addWish.php:
    post:
      ...
      parameters:
      - name: wishPrefix
        in: query   # <----------
        required: true
        type: string
      ...

但是，只有在您的数据中没有空白，并且您没有明确标识表单以便它只能与当前活动表一起使用时，这才会起作用。如果您想要名为“Sheet1”的工作表A列中的所有数据，那么更好的解决方案是

Sub updatestrial()

Range(Range("A1"), Range("A1").End(xlDown)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("H5"), Unique:=True

 End Sub

Answer 2

你有一个不必要的.Select。尝试：

Sub UpdatesTrial()
    Range(Range("A1"), Range("A1").End(xlDown)).AdvancedFilter _
        Action:=xlFilterCopy, _
        CopyToRange:=Range("H5"), _
        Unique:=True
End Sub

运行选择动态列的宏时出现“Error 424 Object required”

2 个答案: