本问题与 #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)