从多个工作表中提取文本

Question

我希望在多个工作表中提取具有特定文本的单元格并将其放入新工作表中。我一直在创建一个循环，或者只是一般代码，这样我就可以在多个工作表中使用我所拥有的内容。

这是我的代码：

 Sub EnzymeInteractions()
' Copy EPC cells Macro
 Dim bottomL As Integer
 Dim x As Integer
 bottomL = Sheets("Enzyme Interactions (110)").Range("I" & Rows.Count).End(xlUp).Row: x = 1

 Dim c As Range
 For Each c In Sheets("Enzyme Interactions (110)").Range("I:I" & bottomI)
 If c.Value = "EPC" Then
 c.EntireRow.Copy Worksheets("sheet4").Range("A" & x)
 x = x + 1
 End If
 Next c

' CombineColumns Macro
Dim rng As Range
Dim iCol As Integer
Dim lastCell As Integer

Set rng = ActiveCell.CurrentRegion
lastCell = rng.Columns(1).Rows.Count + 1

For iCol = 2 To rng.Columns.Count
    Range(Cells(1, iCol), Cells(rng.Columns(iCol).Rows.Count, iCol)).Cut
    ActiveSheet.Paste Destination:=Cells(lastCell, 1)
    lastCell = lastCell + rng.Columns(iCol).Rows.Count
Next iCol

' RemoveBlanks Macro
Cells.Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp
Range("A9").Select

End Sub

除了我不知道如何在多个工作表（大约 10 个）中使用这个 marco 之外，一切都完美无缺。

Answer 1

您可以向您的子程序添加一个参数，并将每个要处理的工作表作为参数传递。

sub Main()
    EnzymeInteractions Sheets("Enzyme Interactions (110)")
    EnzymeInteractions Sheets("Enzyme Interactions (120)")
    'etc
End sub


Sub EnzymeInteractions(ws As Worksheet)

    'use ws instead of (eg) Sheets("Enzyme Interactions (110)")

End Sub

您确实需要修复 sub 的后半部分以移除 ActiveCell/ActiveSheet 的使用：您应该始终尽可能使用明确的范围/工作表引用。

见：How to avoid using Select in Excel VBA 有关这方面的指导方针。