Re: [算表] EXCEL亂數資料排序--轉置,VBA用法,Offset
學了一些函示可是還是用不出來說,先用我最熟的 VBA 囉
以下只針對你的範例來寫,其他就不適用囉,
唉! 以後還是要多多思考如何用函示了 ....
1.首先 工具->巨集->錄製新巨集 按確定後直接按停止
2. Alt+F11 左邊視窗 模組->Module1
3. 將右邊視窗地內容改寫如下
4. 最後 Alt+F8 後按執行即可
Sub Macro1()
Cells(1, 8).Value = Cells(1, 1).Value
Cells(1, 9).Value = Cells(1, 2).Value
Cells(1, 1).Select
lastrow = ActiveCell.SpecialCells(xlLastCell).Row
flag = 2
Name = ""
For Index = 2 To lastrow
If (Len(Cells(Index, 1).Value) > 0) Then
Name = Cells(Index, 1).Value
End If
For j = 2 To 6
If (Len(Cells(Index, j).Value) > 0) Then
Cells(flag, 8).Value = Name
Cells(flag, 9).Value = Cells(Index, j).Value
flag = flag + 1
End If
Next j
Next Index
MsgBox ("完成!")
End Sub
※ 引述《k000576 (~沒人知道我~)》之銘言:
: 軟體:excel
: 版本:2003
: 真不好意思,第一次上這個版就來求助各位,
: 實在是資料太多筆了,而本人又是個excel新手
: 要慢慢複製貼上應該會得肌腱炎吧
: 我的原始資料是這樣的:
: A B C D E F
: 1 地址 姓名 姓名 姓名 姓名 姓名
: 2 台北市台北路1號 陳一 陳二 陳三 陳四 陳五
: 3 基隆市基隆路5號 王一 王二 王三 王四 王五
: 4 王六 王七
: 5 宜蘭市宜蘭路7號 林一 林二
: 要把資料變成:
: A B
: 1 臺北市台北路1號 陳一
: 2 臺北市台北路1號 陳二
: 3 臺北市台北路1號 陳三
: 4 臺北市台北路1號 陳四
: 5 臺北市台北路1號 陳五
: 6 基隆市基隆路5號 王一
: 7 基隆市基隆路5號 王二
: 8 基隆市基隆路5號 王三
: 9 基隆市基隆路5號 王四
: 10基隆市基隆路5號 王五
: 11基隆市基隆路5號 王六
: 12基隆市基隆路5號 王七
: 13宜蘭市宜蘭路7號 林一
: 14宜蘭市宜蘭路7號 林二
: 15
: 地址那一欄不需要排序,主要是B-F欄的資料要對應著地址往下排
: 希望大家看的懂我的意思。
: 可以給我一點解決的方向或線索嗎?
: 先謝謝各位了,感激不盡~~
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.229.91.101
→
02/10 00:42, , 1F
02/10 00:42, 1F
→
02/10 00:42, , 2F
02/10 00:42, 2F
推
02/10 00:49, , 3F
02/10 00:49, 3F
→
02/10 16:31, , 4F
02/10 16:31, 4F
討論串 (同標題文章)