在 B 列中查找值并将值复制到新工作表

Question

我有一个包含多张工作表的工作簿。每张纸总是在 B 栏中有一个称为“一般条件”的值，而 C 栏中的值是美元金额。我正在尝试查找“一般条件”值，然后将 Col C 中的值复制到新工作表中。这些值始终位于 Col B 和 C 中，但行号不同。

示例： 一般条件 | 658.25

这就是我的工作。理想情况下，我希望遍历工作簿中的所有工作表。

Sub macro()

For Each c In Range(Range("B1"), Range("B" & Rows.Count).End(xlUp))
    If c Like "*General Conditions*" Then
    c.EntireRow.Copy Sheets("Sheet1").Range("B" & Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row + 1)

End If

Next
End Sub

Answer 1

试试这个....

Sub macro()

将 irows 变暗为整数

对于 ActiveWorkbook.Worksheets 中的每个 ws

If ws.Range("B2").Value = "" Then
    irows = 1
Else
    irows = ws.Range("B1").End(xlDown).Row
End If

For Each c In ws.Range("B1:B" & irows)
    If c.Value Like "*General Conditions*" And ws.Name <> "Sheet1" Then
        c.EntireRow.Copy Sheets("Sheet1").Range("B" & Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row + 1).EntireRow
    End If
Next c

下一篇

结束子

Answer 2

试试这个

Sub macro()
    Dim c As Range

    Set c = Range("B1", Cells(Rows.count, "B").End(xlUp)).Find(what:="General Conditions", LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then c.EntireRow.Copy Sheets("Sheet1").Cells(Rows.count, "B").End(xlUp).Offset(1)
End Sub