我想在Excel文件中查找以在所有工作表的Excel文件中添加新行

Question

我有一个100 sheets Excel文件

我的问题是我想做

我想检查是否在任何“属性”列中找到“名称”。

然后添加具有相同值的记录"DisplayName"新行，其中"Name"具有但"IsMandatory"为"N"

如果在“属性”列中找到“名称”，则需要检查400张纸并插入新行

请给我个主意。 如何使用Excel查找或数据透视技术来做到这一点。 ？

Answer 1

Sub Test()
Dim curWorkbook As Workbook
Dim rnge As Range
Dim pasteCell As Integer

Set curWorkbook = ThisWorkbook

For Each wrkSheet In curWorkbook.Worksheets
    wrkSheet.Activate
    pasteCell = Range("A1").End(xlDown).Row + 1
    wrkSheet.Range("A:A").Select

    Set rnge = Selection.Find(What:="Name", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

    If rnge Is Nothing Then
        '//Do Nothing
    Else
        wrkSheet.Range("A" & rnge.Row & ":D" & rnge.Row).Copy _
                    Destination:=wrkSheet.Range("A" & pasteCell & ":D" & pasteCell)
        wrkSheet.Range("A" & pasteCell).Value = "Display Name"
        wrkSheet.Range("C" & pasteCell).Value = "N"
        Set rnge = Nothing
    End If
    wrkSheet.Range("A1").Select
Next
End Sub

我假设列引用将保持不变（A：D）。 如果每个工作表中的列都会更改，则您将首先在工作表中找到正确的列，然后在该列中搜索“名称”属性。