VBA Excel宏可處理5000行和5列

Question

我正在使用Excel 2007，范圍A1：A5000中有5000條語句，范圍B1：E5000中的每個語句有四個替代項。 我想將其轉換為所有數據都位於G1：25000范圍內的另一個樣式，其中所有四個替代項都將位於每個Statement下。 我記錄了一個宏，但是我不知道如何循環它，並且手動進行是不可能的。 在這里需要幫助...謝謝。

例：

Statement1 - AlternativeA 1 -  AlternativeA 2 -  AlternativeA 3 -  AlternativeA 4
Statement2 - AlternativeB 1 -  AlternativeB 2 -  AlternativeB 3 -  AlternativeB 4
Statement3 - AlternativeC 1 -  AlternativeC 2 -  AlternativeC 3 -  AlternativeC 4
Statement4 - AlternativeD 1 -  AlternativeD 2 -  AlternativeD 3 -  AlternativeD 4

輸出：

Statement1 
AlternativeA 1
AlternativeA 2
AlternativeA 3
AlternativeA 4
Statement2
AlternativeB 1
AlternativeB 2
AlternativeB 3
AlternativeB 4
Statement3
AlternativeC 1
AlternativeC 2
AlternativeC 3
AlternativeC 4
Statement4
AlternativeD 1
AlternativeD 2
AlternativeD 3
AlternativeD 4

Answer 1

這應該將每個A：E中的值傳輸並轉置到G列。

Sub AE_2G()
    Dim r As Long, s As Variant
    For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        s = Cells(r, 1).Resize(1, 5)
        Cells((r - 1) * 5 + 1, 7).Resize(5, 1) = Application.Transpose(s)
    Next r
End Sub

Answer 2

您實際上並不需要VBA。 只需輸入公式

G1：= INDEX（$ A：$ E，INT（（ROWS（$ 1：1）-1）/ 5）+ 1，MOD（ROWS（$ 1：1）-1,5）+1）

並填充到G25000。 然后復制並粘貼特殊值