如果C的单元格值与sheetname匹配,可以使用VBA宏来实现将行复制到另一个工作表的操作。以下是一个示例的VBA代码:
Sub CopyRowsToAnotherSheet()
Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet
Dim lastRow As Long
Dim i As Long
' 设置源工作表和目标工作表
Set sourceSheet = ThisWorkbook.Sheets("Sheet1") ' 修改为源工作表的名称
Set targetSheet = ThisWorkbook.Sheets("Sheet2") ' 修改为目标工作表的名称
' 获取源工作表的最后一行
lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "C").End(xlUp).Row
' 循环遍历源工作表的每一行
For i = 1 To lastRow
' 判断C列的单元格值是否与sheetname匹配
If sourceSheet.Cells(i, "C").Value = sourceSheet.Name Then
' 复制整行数据到目标工作表的下一行
sourceSheet.Rows(i).Copy targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Offset(1)
End If
Next i
End Sub
使用方法:
Alt + F11
打开VBA编辑器。F5
运行宏,即可将符合条件的行复制到目标工作表中。这段代码通过遍历源工作表的每一行,判断C列的单元格值是否与sheetname匹配,如果匹配则将整行数据复制到目标工作表的下一行。你可以根据实际需求修改代码中的工作表名称和列号。
领取专属 10元无门槛券
手把手带您无忧上云