推 windknife18:真的是太強了 ... 看來還有得學了 ... 02/10 18:08
→ JieJuen:^^" 02/10 19:13
※ 編輯: JieJuen 來自: 218.164.49.72 (05/11 19:29)
本問題與 #198oLiPb
7704 111/19 JieJuen R: [算表] 多數欄位如何改成同一欄?--轉置,OFFSET
幾乎一樣
只差地址要不斷重覆出現
http://2y.drivehq.com/p/SameColumn2.xls
※ 引述《windknife18 (windknife18)》之銘言：
: 學了一些函示可是還是用不出來說，先用我最熟的 VBA 囉
哇~ 您最熟的是我最不熟的耶 真是太好了 ^^
: 以下只針對你的範例來寫，其他就不適用囉，
: 唉！ 以後還是要多多思考如何用函示了 ....
本題用函數還要在旁邊計算位置，看起來也不是很精簡
如果要直接得到結果 公式應該會很複雜
Word也是可以考慮 弄完再配合這招 #17U8En1a 4340
: 1.首先 工具->巨集->錄製新巨集 按確定後直接按停止
: 2. Alt+F11 左邊視窗 模組->Module1
Alt+F11 插入/模組
這樣講不知道初學者找不找的到 XD 這可能是您的考量
: 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: 114.47.32.14