Question

我想在sheet2中创建列，具体取决于excel中sheet1中的行数。例如我有sheet1中的数据

ROW1:rowvalue1
ROW2:rowvalue2
ROW3:rowvalue3

我想在sheet2中将其作为

column1       column2      column3
rowvalue1     rowvalue2    rowvalue3

Answer 1

使用copy＆amp;粘贴特殊'转置' - 您可以手动执行此操作。

如果您想使用VBA：

Sub Macro1()

    Sheets(1).Activate 'open the first sheet
    Sheets(1).Range("A1:A" & Sheets(1).Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row).Select  'select all values in column
    Selection.Copy
    Sheets(2).Select
    ActiveSheet.Range("A1").Select   'this is where your data will be pasted
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True  'transpose=true flips your data around

End Sub

如果纸张（1）指的是第一张纸，而纸张（2）指的是第二张纸，则可以用纸张的索引或名称替换它们（如果使用名称，请在其周围使用引号），我是假设您的数据以A1开头，代码为：

    Sheets(1).Range("A1:A" & Sheets(1).Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row).Select

选择该列中最后一个单元格的所有数据。

要使这个工作在多个列上，如果它们都在一行中，您只需转置整个块。例如： Sub Macro1（）

    Sheets(1).Activate 'open the first sheet
    Sheets(1).Range("A1:X" & Sheets(1).Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row).Select  'select all values in column
    Selection.Copy
    Sheets(2).Select
    ActiveSheet.Range("A1").Select   'this is where your data will be pasted
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True  'transpose=true flips your data around

End Sub

如果你只想做一些列行，那么你需要在原始代码上创建一个循环。

Sub Macro1()
    y = Array(1, 3, 5, 9) 'this is the index of columns A,C,E,F
    For x = 0 To 3
    Sheets(1).Activate 'open the first sheet
    RowCount = Sheets(1).Range(Cells(ActiveSheet.Rows.Count, y(x)).End(xlUp), Cells(ActiveSheet.Rows.Count, y(x)).End(xlUp)).Row
    Sheets(1).Range(Cells(1, y(x)), Cells(RowCount, y(x))).Select 'select all values in column
    Selection.Copy
    Sheets(2).Activate
    ActiveSheet.Range(Cells(x + 1, 1), Cells(x + 1, 1)).Select 'this is where your data will be pasted
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True  'transpose=true flips your data around
Next
End Sub

Answer 2

尝试以下代码

Sub PerformAction()
    Application.ScreenUpdating = False
    With Worksheets(Sheet1.Name)
     LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
    For i = 1 To LastRow
     Sheet2.Cells(1, i).Value = Sheet1.Range("A" & i).Value
    Next
    Application.ScreenUpdating = True
End Sub

根据excel中sheet1中的行数在sheet2中创建列

2 个答案: