Board logo

標題: [發問] excel 複製值 [打印本頁]

作者: connietien    時間: 2022-8-9 15:27     標題: excel 複製值

各位大大,

想請問如果在儲存格值用自訂設定
例如: 470L=>設定###"L"後, 只要輸定數字470就會帶出470L
如果我想把470L複製到其它表格, 如果用貼上值的方式只會顯示470, 可以有別的複製方式帶出470L嗎?
作者: Andy2483    時間: 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
[attach]35140[/attach]




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)