如何轉置並重組資料排列方式 - Excel程式區

[發問] 如何轉置並重組資料排列方式

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-7-7 17:08 | 顯示全部帖子

回復 3# luke

Option Explicit
Sub Ex()
Dim Ar(2 To 3), E As Range
With sheet1
Ar(2) = .Columns(2) 'B欄資料置入陣列
Ar(3) = .Columns(3) 'C欄資料置入陣列
.Columns(2) = Ar(3) 'B欄資料轉成C欄資料
.Columns(3) = Ar(2) 'C欄資料轉成B欄資料
.Columns(2).Replace "*運送組", "" 'B欄資料消除字串 *運送組
.Columns(2).Replace "*停車亭", "" 'B欄資料消除字串 *停車亭
.Columns(2).Replace "*休息", "" 'B欄資料消除字串 *休息
.Range("E:I").Clear
For Each E In .Range("A:C").SpecialCells(xlCellTypeConstants).Areas
'Areas 屬性傳回 Areas 集合，此集合代表多重範圍中的所有範圍。唯讀。
E.Copy '複製
With .Range("E" & .Rows.Count).End(xlUp).Offset(1) 'E欄由下往上
.PasteSpecial , Transpose:=True '轉置
If .Cells(1, 3) = "站牌終點" Then .Cells(1, 3).Resize(3).Cut Destination:=.Cells(1, 5)
.Resize(3, 5).Borders.LineStyle = xlNone '消除框線
.Resize(3, 5).BorderAround 1 '製定外框線
End With
Next
.Range("E:I").EntireColumn.AutoFit
.Range("E1").Select
.Columns(2) = Ar(2) '還原B欄資料
.Columns(3) = Ar(3) '還原C欄資料
End With
End Sub

複製代碼

靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。