筛选sheet1 g列为空格键行，用VBA怎么写

你可以使用以下 VBA 代码来筛选 Sheet1 中 G 列为空格键行：

Sub FilterBlankRows()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "G").End(xlUp).Row '获取 G 列最后一行的行号
Range("A1:G" & lastRow).AutoFilter Field:=7, Criteria1:="=" '筛选 G 列为空格键行
End Sub

这段代码将自动筛选出 G 列为空格键行，并将结果显示在 Sheet1 的 A1:G 区域中。

相关问题

vba 将Sheet1表的第3行复制到sheet2表的第2行怎么写代码

您可以使用以下VBA代码来实现将Sheet1表的第3行复制到Sheet2表的第2行：

Sub CopyRow()
    Dim sourceSheet As Worksheet
    Dim destinationSheet As Worksheet
    
    ' 设置源表和目标表
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set destinationSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 复制源表的第3行到目标表的第2行
    sourceSheet.Rows(3).Copy Destination:=destinationSheet.Rows(2)
End Sub

将此代码复制到VBA编辑器中（按下`Alt`+`F11`打开），然后可以运行`CopyRow`子程序来执行复制操作。请确保在运行代码之前已经打开了源表和目标表。

copy excel1 sheet1的内容到 excel2 的sheet2 用Vba怎么写

你可以使用以下代码将 Excel1 中 Sheet1 的内容复制到 Excel2 中的 Sheet2：

Sub CopySheet()
Dim wb1 As Workbook, wb2 As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet

Set wb1 = Workbooks("Excel1.xlsx")
Set wb2 = Workbooks("Excel2.xlsx")
Set ws1 = wb1.Worksheets("Sheet1")
Set ws2 = wb2.Worksheets("Sheet2")

ws1.Range("A1:Z100").Copy ws2.Range("A1")
End Sub

这个代码假设 Excel1 和 Excel2 都已经打开，并且它们的文件名分别为 Excel1.xlsx 和 Excel2.xlsx。你需要将代码中的文件名和工作表名替换为你自己的文件名和工作表名。此外，代码中的范围也可以根据你的需要进行更改。