資料直向轉橫向排列 - Excel程式區

[發問] 資料直向轉橫向排列

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

1^# 跳轉到 »

發表於 2013-1-7 15:06 | 顯示全部帖子

回復 1# Genie
比較基礎的寫法

Sub oag()
Range("g2:az20000").Clear '此行可刪除主要是用來清除多餘重複的
For uua = 1 To 3
For uub = 4 To 6
For uud = 2 To Range("a2").CurrentRegion.Rows.Count
Select Case uua
Case 1
If Cells(uud, 1) = uua Then Cells(uud, uua + 22) = Cells(uud, 3)
Select Case uub
Case uub
If Cells(uud, 1) = uua And Cells(uud, 2) = uub Then Cells(uud, uua + 21 + uub) = Cells(uud, 3)
End Select
Case 2
If Cells(uud, 1) = uua Then Cells(uud, uua + 22) = Cells(uud, 3)
Select Case uub
Case uub
If Cells(uud, 1) = uua And Cells(uud, 2) = uub Then Cells(uud, uua + 23 + uub) = Cells(uud, 3)
End Select
Case 3
If Cells(uud, 1) = uua Then Cells(uud, uua + 22) = Cells(uud, 3)
Select Case uub
Case uub
If Cells(uud, 1) = uua And Cells(uud, 2) = uub Then Cells(uud, uua + 25 + uub) = Cells(uud, 3)
End Select
End Select
Next
Next
Next
For aaa = 1 To Range("a2").CurrentRegion.Rows.Count
For uus = 23 To 34
For uuk = 2 To Range("a2").CurrentRegion.Rows.Count
If Cells(2, uus) = "" Then
Cells(2, uus).Select
Selection.Delete Shift:=xlUp
End If
Next
Next
Next
End Sub

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

靜思自在 : 有時當思無時苦，好天要積雨來糧。