将某一行数据移入列（现有macros的反转）
参考此处提供的解决scheme： https ： //stackoverflow.com/a/9231458
我需要做相反的事情，例如：
AEFGHI BJKLMN COPQRS DTUVWX
至
AE AF AG 啊 AI BJ BK BL BM BN CO CP CQ CR CS DT 杜 DV DW DX
有人可以帮帮我吗？
Sub foo() Dim rng As Range Dim row As Integer Dim col As Integer Set rng = Sheets("Sheet1").Range("A1:A4") row = 0 For Each cell In rng col = 1 Do Until cell.Offset(0, col) = "" Sheets("Sheet1").Range("A6").Offset(row, 0) = cell Sheets("Sheet1").Range("A6").Offset(row, 1) = cell.Offset(0, col) row = row + 1 col = col + 1 Loop Next cell End Sub