生成一个vba，筛选G列，取消空白，点击筛选

下面是一个生成 VBA 代码的示例，请注意，此代码仅供参考，因为我不了解您的工作表的结构和要求，因此您可能需要对代码进行修改：

Sub FilterColumnG()

' 定义变量
Dim ws As Worksheet
Set ws = ActiveSheet

' 筛选 G 列，取消空白
ws.Range("G:G").AutoFilter Field:=1, Criteria1:="<>", Operator:=xlAnd

' 点击筛选
ws.Range("G:G").AutoFilter

End Sub

要使用此代码，请在 VBA 编辑器中将其插入模块，然后在工作表中运行它。

希望这可以帮助您。如果您有任何其他问题，请随时联系我。

相关问题

生成一个vba，筛选G列，取消全选和空白，点击筛选

下面是一个生成 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）排除小记和空白，

下面是如何生成一个 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 = ThisWorkbook.Sheets("Sheet1")
Set rng = ws.Range("G1:G" & ws.Cells(ws.Rows.Count, "G").End(xlUp).Row)

'Loop through each cell in the range
For Each cell In rng
'Check if the cell is a subtotal or is blank
If cell.Value = "" Or cell.Font.Bold = True Then
'If it is, delete the row
cell.EntireRow.Delete
End If
Next cell
End Sub

这段代码会删除（G，1）列中的小记行和空白行。你可以将"Sheet1"替换为你要处理的工作表的名称。