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

Question

I have one excel file with 100 sheets

My problem is I want to do

I want to check if I found "Name" In any "Attribute" column.

Then Add new row of record "DisplayName" with same values what "Name" having but "IsMandatory" is "N"

There are 400 sheets where I need to check and insert new row if I found "Name" in "Attribute" column

Please give me idea . How can I do it using excel lookup or pivot technique. ?

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

I am assuming the column references will remain same (A:D). If the columns will change in each individual sheet, you will have first find the correct column in the worksheet and then search for "Name" attribute in that column.