不連續區域不連續單元格的複製和貼上，在Excel中，使用常規的複製貼上，是無法實現的； 儘管在同一列中，先選中一個單元格，之後按住CTRL鍵，再選擇其它的不相鄰的單元格，儘管能複製，但是，當我們將其貼上到其它地方的時候，往往都不能粘貼出空單元格。要想在不同列不同的選擇區域，實現複製貼上，可使用如下的兩種程式碼：一、程式碼一Sub 我要貼上()Application.ScreenUpdating = Falses = Selection.CountReDim arr(s - 1)For Each Rng In Selectionarr(i) = Rng.Addressi = i + 1NextRange("xfd1").PasteSpecial (xlPasteAll)For i = 0 To s - 1Range("xfd1").Offset(i, 0).CutRange(arr(i)).SelectActiveSheet.PasteNext iApplication.ScreenUpdating = TrueEnd Sub上述程式碼功能：複製源區域支援單列中的連續或非連續單元格，貼上目標區域支援單列或多列連續或非連續單元格。二、程式碼二Sub 我也要貼上()Set MyData = New DataObjectApplication.ScreenUpdating = FalseMyData.GetFromClipboardarr = Split(MyData.GetText(1), Chr(13) + Chr(10))i = 0For Each Rng In SelectionRng.Value = arr(i)i = i + 1NextSet MyData = NothingApplication.ScreenUpdating = TrueEnd Sub上述程式碼功能：僅包含單元格數值，複製源區域支援單列中的連續或非連續單元格，貼上目標區域支援單列或多列連續或非連續單元格。三、上述兩種宏程式碼使用方法複製的時候按照系統正常的操作方法，選中單元格區域（同列中），按
不連續區域不連續單元格的複製和貼上，在Excel中，使用常規的複製貼上，是無法實現的； 儘管在同一列中，先選中一個單元格，之後按住CTRL鍵，再選擇其它的不相鄰的單元格，儘管能複製，但是，當我們將其貼上到其它地方的時候，往往都不能粘貼出空單元格。要想在不同列不同的選擇區域，實現複製貼上，可使用如下的兩種程式碼：一、程式碼一Sub 我要貼上()Application.ScreenUpdating = Falses = Selection.CountReDim arr(s - 1)For Each Rng In Selectionarr(i) = Rng.Addressi = i + 1NextRange("xfd1").PasteSpecial (xlPasteAll)For i = 0 To s - 1Range("xfd1").Offset(i, 0).CutRange(arr(i)).SelectActiveSheet.PasteNext iApplication.ScreenUpdating = TrueEnd Sub上述程式碼功能：複製源區域支援單列中的連續或非連續單元格，貼上目標區域支援單列或多列連續或非連續單元格。二、程式碼二Sub 我也要貼上()Set MyData = New DataObjectApplication.ScreenUpdating = FalseMyData.GetFromClipboardarr = Split(MyData.GetText(1), Chr(13) + Chr(10))i = 0For Each Rng In SelectionRng.Value = arr(i)i = i + 1NextSet MyData = NothingApplication.ScreenUpdating = TrueEnd Sub上述程式碼功能：僅包含單元格數值，複製源區域支援單列中的連續或非連續單元格，貼上目標區域支援單列或多列連續或非連續單元格。三、上述兩種宏程式碼使用方法複製的時候按照系統正常的操作方法，選中單元格區域（同列中），按