[算表] EXCEL 亂數資料排序。--轉置,VBA用法,Offset

[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: 218.174.198.198

> -------------------------------------------------------------------------- <

作者: windknife18 (windknife18) 看板: Office
標題: Re: [算表] EXCEL 亂數資料排序。
時間: Tue Feb 10 00:32:51 2009


學了一些函示可是還是用不出來說，先用我最熟的 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
→ k000576:非常感謝您的幫忙。但excel秀出錯誤：不正確的外部程序。
→ k000576:還是我哪裡做錯了嗎？？
推 k000576:耶！我試出來了，非常感謝w大的幫忙~~~~！！
→ windknife18:本來你是哪裡錯誤了呢？
> -------------------------------------------------------------------------- <

作者: JieJuen (David) 看板: Office
標題: Re: [算表] EXCEL 亂數資料排序。--轉置,VBA,Offset
時間: Tue Feb 10 04:54:23 2009

本問題與 #198oLiPb
7704   111/19 JieJuen      R: [算表] 多數欄位如何改成同一欄?--轉置,OFFSET
幾乎一樣

只差地址要不斷重覆出現
http://p.2yu.co.cc/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
推 windknife18:真的是太強了 ... 看來還有得學了 ...
→ JieJuen:^^"
#19a5gqHb #19a9W0F2