工作表中的单元格值转换为工作表中的一列

我试图运行一个macros，以便在工作表中的每个单元格（范围是相同的所有工作表）它将列在一个不同范围内的现有工作表中列中。 我有macros的阅读部分，我不知道如何列出工作表中的每个值在现有的工作表中：

Sub wstocolumn() 'Saves the excel print area to a PDF file Dim fp As String Dim wb As Workbook Dim rng As Range Dim intWS As Integer Set wb = ActiveWorkbook Worksheets("Sheet4").Activate For intWS = 1 To wb.Worksheets.Count With wb.Worksheets(intWS) Set rng = .Range("A1") Set Worksheets("Sheet4").Range("A4:A10") = rng '<----- this is where I want each value_ _from the worksheets End With Next intWS End Sub 

Answer 1

也许是这样的：

 Sub tgr() Dim ws As Worksheet Dim arrCells() As Variant Dim i As Long ReDim arrCells(1 To ActiveWorkbook.Sheets.Count) For Each ws In ActiveWorkbook.Sheets i = i + 1 arrCells(i) = ws.Range("A1").Value Next ws Sheets("Sheet4").Range("A4").Resize(i).Value = Application.Transpose(arrCells) End Sub