>>改用Find如下,請測試看看,謝謝
' For row_b = 1 To 1000 Step 1 '找出 .subckt 與 *.PININFO 是哪一列
' If Cells(row_b, 1) = ".subckt" Then ' 用來標定 "整個Macro" 的出 Pin 區域
' Begin_A = row_b
' ElseIf Cells(row_b, 1) = "*.PININFO" Then '出 Pin 開始與結束列數分別存在
' End_A = row_b - 1 ' Begin_A 與 End_A 變數
' Exit For
' End If
' Next
With Range("A1:A1000")
Set Rng = .Find(".subckt", , , xlWhole)
If Not Rng Is Nothing Then Begin_A = Rng.Row
End With
With Range("A1:A1000")
Set Rng = .Find("*.PININFO", , , xlWhole)
If Not Rng Is Nothing Then End_A = Rng.Row - 1
End With 作者: samwang 時間: 2022-6-15 08:58