VBA：批量复制sheet内指定内容

VBA. 批量复制sheet内指定内容

背景：一个excel内有包含0-18序号的Sheet，需要将1-18的sheet内包含标准差的行复制到sheet”0“中。

方法：

从1-18遍历sheet，找到单元格值为”标准差“的行，
然后（仅复制值）复制该行到指定sheet内

结果：

在这里插入图片描述


Sub CopyStdevRowsToSheet0()Dim wsSource As WorksheetDim wsDest As WorksheetDim stdevRow As LongDim found As BooleanDim sheetIndex As LongDim destRow As Long' 指定目标工作表Set wsDest = ThisWorkbook.Sheets("0")destRow = 1' 循环遍历1到18的工作表For sheetIndex = 1 To 18' 指定要操作的工作表Set wsSource = ThisWorkbook.Sheets(CStr(sheetIndex))' 初始化标记found = False' 查找单元格值为“标准差”的行号 （这里控制查找区域为100行，10列内）For i = 1 To 100For j = 1 To 10If wsSource.Cells(i, j).Value = "标准差" Thenfound = TruestdevRow = iExit ForEnd IfNext jIf found Then Exit ForNext i' 如果找到单元格值为“标准差”的行If found Then'将第一列的值设置为sheet名'wsSource.Cells(stdevRow, 1).Value = sheetIndex ' 复制找到的行的值到目标工作表的对应行（仅复制值）wsDest.Rows(destRow).Value = wsSource.Rows(stdevRow).ValuedestRow = destRow + 1End IfNext sheetIndex
End Sub