返回列表 上一主題 發帖

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

quickfixer

帖子
154 
主題
1 
精華
0 
積分
200 
點名
1  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2025-1-1 
1# 跳轉到 »
發表於 2022-6-15 20:47 | 顯示全部帖子
本帖最後由 quickfixer 於 2022-6-15 20:52 編輯

處理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

TOP

quickfixer

帖子
154 
主題
1 
精華
0 
積分
200 
點名
1  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2025-1-1 
2#
發表於 2022-6-15 21:05 | 顯示全部帖子
本帖最後由 quickfixer 於 2022-6-15 21:15 編輯

回復 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

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題