- 帖子
- 1447
- 主題
- 40
- 精華
- 0
- 積分
- 1471
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2024-12-5
|
2#
發表於 2022-8-10 09:25
| 只看該作者
回復 1# connietien
Option Explicit
Sub 特別複製() '輔助表法
Dim SN, S, Ads, a As Range
Application.ScreenUpdating = False
SN = "L輔助表"
For Each S In Sheets
If S.Name = SN Then
Sheets("L輔助表").Cells.Clear
GoTo 66
End If
Next
Worksheets.Add.Name = "L輔助表"
Sheets("L輔助表").Visible = False
66
Ads = Selection.Address
If Ads Like "*,*" Then
MsgBox "無法在不相鄰範圍執行此命令!"
Exit Sub
End If
Range(Ads).Copy Sheets("L輔助表").Range(Ads)
For Each a In Sheets("L輔助表").Range(Ads)
If a.NumberFormatLocal = "###L" And a Like "###" Then
a = a.Value & "L"
End If
Next
Sheets("L輔助表").Range(Ads).Copy
Application.ScreenUpdating = True
End Sub
 20220810.zip (16.05 KB)
|
|
