下面是一个生成 VBA 代码的例子：
Sub Filter() Dim ws As Worksheet Set ws = ActiveSheet
With ws.Range("G:G") .AutoFilter Field:=1, Criteria1:="<>" .AutoFilter Field:=1, Criteria1:="<>" End With End Sub
你可以将其复制到你的 VBA 编辑器中，然后运行它。这个代码将对工作表中的 G 列进行筛选，取消全选和空白，并点击筛选。
注意：这个代码假设你已经在使用 VBA 编辑器，并且已经选择了要进行筛选的工作表。如果你没有打开 VBA 编辑器或者没有选择工作表，这个代码可能会出错。
下面是如何
生成
一个
VBA
程序来
筛选
(G，1)
列
并排除小记和
空白
的示例代码：
Sub FilterBlankAndSubtotal()
'Declare variables
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
'Set the worksheet and range
Set ws = Thi...
下面是
一个
生成
VBA
代码的示例，请注意，此代码仅供参考，因为我不了解您的工作表的结构和要求，因此您可能需要对代码进行修改：
Sub FilterColumnG()
' 定义变量
Dim ws As Worksheet
Set ws = ActiveSheet
'
筛选
G
列
，
取消
空白
ws.Range("G:G").AutoFilter Field:=1, Criteria1:="<&...
ActiveSheet.Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="<3", Operator:=xlOr, Criteria2:=">9"
En...
Sub
VBA
小程序_对于选中的
单元格
进行
取消
合并_选择空值向上填充()
Dim a As Range
Set a = Selection '定义变量为最初选择的区域，不忘初心
Selection.UnMerge '
取消
合并
Selection.SpecialCells(xlCellTypeBlanks).Select '选择空值
Selection.FormulaR1C1 = "=R[-1]C" '=上面的值
a.Copy '原则最开始的区域...
