我想在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）。 如果每個工作表中的列都會更改，則您將首先在工作表中找到正確的列，然后在該列中搜索“名稱”屬性。