返回列表 上一主題 發帖

[發問] 請問可不以自動填上數字在相對儲存格

[發問] 請問可不以自動填上數字在相對儲存格

John-01---意思係John的第1板,下面就是第一板的資料,John-02就是第2板,下面就是第2板的資料.
以此類推.我想將第一板的資料前面多加上01..ie 01J0507001,01J0507002以此類推.做到好處Column B一樣

      A              B
       ref          Ref 02
John-01        01J0507001
J0507001        01J0507002
J0507002        01J0507003
J0507003        01J0507004
J0507004        02J0507006
John-02        02J0507007
J0507006        02J0507008
J0507007        02J0507009
J0507008        02J0507010
J0507009        02J0507011
J0507010        06J0507005
John-06        06J0507006
J0507005       
J0507005

回復 1# john2006168
  1. Sub nn()
  2. Dim Ar()
  3. For Each a In Range([A2], [A65536].End(xlUp))
  4.    If InStr(a, "-") > 0 Then
  5.    mystr = Split(a, "-")(1)
  6.    Else
  7.    ReDim Preserve Ar(s)
  8.    Ar(s) = mystr & a
  9.    s = s + 1
  10.    End If
  11. Next
  12. [B2].Resize(s, 1) = Application.Transpose(Ar)
  13. End Sub
複製代碼
學海無涯_不恥下問

TOP

老師
Thanks for your help.
12.[B2].Resize(s, 1) = Application.Transpose(Ar)
好像有問題,行到這裡就不行了

TOP

回復 3# john2006168


    沒問題阿 aa.rar (6.89 KB)
學海無涯_不恥下問

TOP

回復 4# Hsieh
我用老師的程式代進這個表,不行哦...頭很痛....help me.

            A                                   B
John#1005043-11
John0507001
John#1005043-12
John0705002
John#1005043-03
John507004
John507005
John507006
John507007

TOP

本帖最後由 Hsieh 於 2010-5-13 22:58 編輯

文字格式不同
這樣的革是要轉成怎樣的格是要說明清楚
轉出來這樣
ref        Ref 02
John#1005043-11        11John0507001
John0507001        12John0705002
John#1005043-12        03John507004
John0705002        03John507005
John#1005043-03        03John507006
John507004        03John507007
John507005       
John507006       
John507007
學海無涯_不恥下問

TOP

原來是這樣子,那老師我應該怎麼改

TOP

多謝老師...搞掂晒=ok
另外我在個表係(在)John0507001 加上-03,程式好像就走不了,不知道出了什麼問題??.

ref
John#1005043-11
John0507001-03
John#1005043-12
John0705002-04
John#1005043-03
John507004-05
John507005-07
John507006-08
John507007-09

TOP

改成這樣的格式
John#1005043_11
John0507001_03
John#1005043_12
John0705002_04
John#1005043_03
John507004_05
John507005_07
John507006_08
John507007_09
學海無涯_不恥下問

TOP

        靜思自在 : 能善用時間的人,必能掌握自己努力的方向。
返回列表 上一主題