返回列表 上一主題 發帖

[發問] excel 複製值

[發問] excel 複製值

各位大大,

想請問如果在儲存格值用自訂設定
例如: 470L=>設定###"L"後, 只要輸定數字470就會帶出470L
如果我想把470L複製到其它表格, 如果用貼上值的方式只會顯示470, 可以有別的複製方式帶出470L嗎?

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

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題