Question

使用下面的代码，我被移调选择标准所困扰。当前用作范围选择的application.inbox，用于选择数据的目标范围。但是，当我选择多个范围（使用Ctrl）时，就会出现问题，而我只能在另一个excel中选择3-4个数据范围（代码与工作数据范围excel在不同的excel中）。但是，当我使用相同的启用vba的excel选择多个数据范围时，我可以同时选择多个范围。不知道问题出在哪里。从不同的excel中选择数据时，我没有收到任何错误消息，只是先前的选择被取消选择了。

Private Sub CommandButton1_Click()
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "Transpose"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, 
Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, 
Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, 
Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

谢谢

转置多个数据范围

0 个答案: