uj5u.com熱心網友回復：
效果圖:
把以下程序代碼加入到Sheet1的代碼表單中,按F5運行:
Sub ColToRow()
Dim x As Integer
x = 8 ' 表2的開始列
Dim y As Integer
y = 1 ' 表2的開始行
Dim i As Integer
For i = 2 To 4 ' 表1的資料開始列和結束列
Dim j As Integer
j = 2 ' 表1的資料開始行
While Cells(j, i) <> ""
' 開始轉換,將表1的內容轉換為表8的內容.
' 轉換三列資料:
Cells(y, x) = Cells(1, i) ' 表2的第x列第y行資料設定為表1的第1行第i列資料.
Cells(y, x + 1) = Cells(j, 1) ' 表2的第x+1列第y行資料設定為表1的第j行第1列資料.
Cells(y, x + 2) = Cells(j, i) ' 表2的第x+2列第y行資料設定為表1的第j行第i列資料.
j = j + 1 ' 表1資料行j下移.
y = y + 1 ' 表2的資料行y下移.
Wend
Next
End Sub
下載地址:
鏈接：https://pan.baidu.com/s/1UntqZb2jb2cIMOOCRoFCjg
提取碼：bdil
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/38734.html
標籤：VBA
上一篇：初入論壇，求1積分