請教 =等號 與 Tab 的問題(重新發問)

verify9k

各位版友大家好:                 
        我先前提問了一次相同問題,可是忘了提供檔案,所以得到的答案與我原先的預期
        有出入,這一次發問我提供了檔案,希望有版友願意提供我如何解決問題.

        (1) 附件的 Spice_Netlist 頁面中,A39 的內容是 =+A4B,這個等號與加號導致
            我的 VBA程式無法執行,VBA 程式說 "型態不符合",必須手動將 A39 到 A58
            的等號與加號都拿掉,才可以順利執行,請問,我的程式應該加寫些什麼才
            可以濾掉這些等號加號....
            PS. 我的程式在檢視巨集就看得到了
            
        (2) 如果已經可以順利執行,結果會出現在 Verilog_Netlist 這個頁面,
            我通常會將此一結果複製到 Editer, 可是複製過來之後我發覺每個字串後面
            都是 TAB,而非空格,請問是否有辦法讓這些 TAB 變成空格.
            範例如下:  
     MTP_LOGIC        I_MTP_LOGIC(        A1, A1B,  A2,        A2B,        A3,        A3B,                                                                                       
       A4B,        A4I,        A5B,        A5I,        A6B,        A6I,        A7B,        A7BC,        A7I,        A7IC,        A8B,        A8BC,               
       A10B,        A10BC,        A10I,        A10IC,        A11B,        A11BC,        A11I,        A11IC,        BS0,        BS1,        BS2,                                               
       CEN_ERMDB,        CLKLV0,        CLKLV1,        CLKLV2,        CLKLV3,        EN5V,        EN5V5,        EN6V,        EN6V5,                                                       
       EN9V5,        ENDP0,        ENDP1,        ENDP2,        ENDP3,        ENM6V,        ENM6V5,        ENM7V,        ENM7V5,       
      
       謝謝各位版友的回答

quickfixer

回復 7# quickfixer

代替ctrl+c,先執行test2(),打開你的Editer,貼上
你的程式碼我沒看
自己把#7、#8的程式碼合併到#1
代替ctrl+c範例,只有處理a39~r58,範圍自己改


Sub test2()

    Dim clipboard As Object, s As String
    Set clipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
    For i = 39 To 58
   
        For j = 1 To 18
            s = s & Cells(i, j) & IIf(j = 18, vbNewLine, " ")
        Next j
    Next i
        
    clipboard.SetText s
    clipboard.PutInClipboard

End Sub

quickfixer

處理a column ,  A39 到 A58 = + 的問題

Sub test()

    'r = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 39 To 58  ' 1 to r
     
            Cells(i, 1).Value = Replace(Replace(Cells(i, 1).FormulaLocal, "+", ""), "=", "")
     Next i
   
End Sub

samwang

回復 5# verify9k

  不好意思，後學還是不太能理解，可否附上有解答的檔案的和說明規則，感謝

verify9k

回復 4# samwang

先謝謝您對於我第一個問題的幫忙,我說明一下我的第二個問題,
以我貼上的結果資料部分是   A4B, A4I, A5B,......
                                                   A10B, A10BC, ......
                                                   CEN_ERMDB, CLKLV0, .....
A4B,  是在一個儲存格, A4I, 是在下一個儲存格, A5B,  又是在下下一個儲存格
A10B,  是在一個儲存格, A10BC, 是在下一個儲存格,

當我將這些資料全選並複製到 wordpad 之後,  A4B, 與 A4I, 之間是 TAB,而非空格,
當然,  A10B, 對 A10BC, 之間也是TAB,而非空格,
請問,有沒有辦法讓我 copy 至 wordpad or UltraEditer 時是空格 ???

謝謝您

samwang

回復 1# verify9k


(2) 如果已經可以順利執行,結果會出現在 Verilog_Netlist 這個頁面,
             我通常會將此一結果複製到 Editer, 可是複製過來之後我發覺每個字串後面
            都是 TAB,而非空格,請問是否有辦法讓這些 TAB 變成空格.
>> 不好意思，看不懂需求，且看你的程式碼也不易了解，可否附檔說明一下規則條件且將結果呈現在excel，謝謝

samwang

回復 1# verify9k

  (1) 附件的 Spice_Netlist 頁面中,A39 的內容是 =+A4B,這個等號與加號導致
            我的 VBA程式無法執行,VBA 程式說 "型態不符合",必須手動將 A39 到 A58
             的等號與加號都拿掉,才可以順利執行,請問,我的程式應該加寫些什麼才
            可以濾掉這些等號加號....
             PS. 我的程式在檢視巨集就看得到了

>>改用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

verify9k

不好意思,上傳檔案中,只有最下面一個是我要上傳的(28.59K),
其他同檔名的都是錯的,請見諒