- 帖子
- 2798
- 主題
- 10
- 精華
- 0
- 積分
- 2854
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-4-15
|
A/B欄同時選取
Sub test111()
With Selection
For i = 0 To 9
.Replace i, "*", Lookat:=xlPart
.Replace StrConv(i, vbWide), "*"
Next i
For Each rg In .Columns(1).Cells
If rg <> "" Then rg.Value = Application.Replace(rg, 2, 1, "*")
Next
End With
End Sub
============== |
|
發表於 2020-7-23 15:06
| 