將不同的列堆疊到不同工作表上的一列中

Question

我想將所有從C5開始的填充單元復制到另一個工作表的F列。

我提到了另一篇文章： Excel-將多列合並為一列根據我的需要修改了代碼。

    Sub CombineColumns()
Dim Range1 As Range, iCol As Long, Range2 As Range, Check As Range, wks As Worksheets

Set Range1 = wks("T(M)").Range(Cells(5, 3), Cells(Cells(5, 3).End(xlDown).Row, Cells(5, 3).End(xlToRight).Column))
Set Check = wks("csv").Range("F1")
If IsEmpty(Check.Value) = True Then
Set Range2 = Check
Else
LastRow = wks("csv").Range("F" & Rows.Count).End(xlUp).Row
Set Range2 = wks("csv").Cells(LastRow, 6).Offset(1, 0)
End If
For iCol = 3 To Range1.Columns.Count
    wks("T(M)").Range(Cells(5, iCol), Cells(Range1.Columns(iCol).Rows.Count, iCol)).Copy
    wks("csv").Range2.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Next iCol
End Sub

但我一直收到錯誤消息

“對象不支持此方法或屬性”

在粘貼的步驟。 在嘗試限定所有范圍之后，它說我沒有設置對象變量。

非常感謝你的幫助！

Answer 1

這個怎么樣？

Sub Transposes()

    ' Example just for hardcoded data
    Dim inputRange As Range
    Set inputRange = Sheets("Sheet1").Range("C5:F10").SpecialCells(xlCellTypeConstants)

    Dim outputCell As Range
    Set outputCell = Sheets("Sheet2").Range("A1")

    Dim cell As Range
    For Each cell In inputRange
        Dim offset As Long
        outputCell.offset(offset).Value = cell.Value
        offset = offset + 1
    Next cell

End Sub

將ColumnF中的最后一行設置為所需的任意值，如果該值動態變化，則只需使用多種技術中的任何一種來查找您需要復制/粘貼的最后一個單元格。