轉換器無法開啟檔案excel如何辦
方法
開啟要編輯的excel表
選中要複製的單元格
在選單欄中選擇【檢視】
點選【巨集】
選擇【錄製巨集】
取號名字後，點選【確定】即開始錄製
然後在開發工具中點選【停止錄製】，即錄製了一空白巨集
最後按住【alt+f11】，開啟一VBA視窗。在視窗中輸入以下程式碼，按Alt+F11開啟VBA介面，並將下述程式碼更新在“個人巨集工作簿”的模組中。
Sub 多區域複製貼上()On Error Resume Next
Dim SRange() As Range, UPRange As Range, TRange As Range
Dim i As Long, AreaNum As Long
Dim MinR As Long, MinC As Long
AreaNum = Selection.Areas.Count
ReDim SRange(1 To AreaNum)
MinR = ActiveSheet.Rows.Count
MinC = ActiveSheet.Columns.Count
For i = 1 To AreaNum
Set SRange(i) = Selection.Areas(i)
If SRange(i).Row < MinR Then MinR = SRange(i).Row
If SRange(i).Column < MinC Then MinC = SRange(i).Column
Next i
Set UPRange = Cells(SRange(1).Row, SRange(1).Column)
Set TRange = Application.InputBox(prompt:="選擇貼上區域的最左上角單元格", Title:="多區域複製貼上", Type:=8)
Application.ScreenUpdating = False
For i = 1 To AreaNum
SRange(i).Copy
TRange.Offset(SRange(i).Row - MinR, SRange(i).Column - MinC).PasteSpecial paste:=xlPasteValues
Next i
Application.ScreenUpdating = True
End Sub即可
