从用户通过对话框中select的数据范围复制和转置数据

我想运行一个macros，打开一个对话框，要求一个数组。 一旦用户select了一个单元格arrays，macros将复制这些单元格，并将它们转换到另一个单元格，从用户select的特定单元格开始。

这是我从本网站上发布的其他规范到目前为止所做的一切。 我对VBA有很less的经验，并且刚刚开始尝试并通过分析数据节省时间。

提前感谢任何可以帮助的人。

Sub CopyPaste() Dim Rng As Range Dim WorkRng As Range Dim Arr As Variant Dim i As Integer, j As Integer, k As Integer On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Arr = WorkRng.Formula WorkRng.Formula = Arr Worksheets("Sheet1").Range("Arr").Cut Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True End Sub 

Answer 1

这将允许用户在运行时select复制范围和目标范围：

 Sub KopyKat() Dim r1 As Range, r2 As Range Set r1 = Application.InputBox(Prompt:="Please select source range", Type:=8) Sheets("Sheet2").Select Set r2 = Application.InputBox(Prompt:="Please select destination cell", Type:=8) r1.Copy r2.PasteSpecial Transpose:=True End Sub