本問題與 #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 ※ 編輯: JieJuen 來自: 218.164.49.72 (05/11 19:29)