標題:
[發問]
請問可不以自動填上數字在相對儲存格
[打印本頁]
作者:
john2006168
時間:
2010-5-12 00:24
標題:
請問可不以自動填上數字在相對儲存格
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
作者:
Hsieh
時間:
2010-5-12 23:05
回復
1#
john2006168
Sub nn()
Dim Ar()
For Each a In Range([A2], [A65536].End(xlUp))
If InStr(a, "-") > 0 Then
mystr = Split(a, "-")(1)
Else
ReDim Preserve Ar(s)
Ar(s) = mystr & a
s = s + 1
End If
Next
[B2].Resize(s, 1) = Application.Transpose(Ar)
End Sub
複製代碼
作者:
john2006168
時間:
2010-5-13 21:50
老師
Thanks for your help.
12.[B2].Resize(s, 1) = Application.Transpose(Ar)
好像有問題,行到這裡就不行了
作者:
Hsieh
時間:
2010-5-13 22:26
回復
3#
john2006168
沒問題阿[attach]385[/attach]
作者:
john2006168
時間:
2010-5-13 22:36
回復
4#
Hsieh
我用老師的程式代進這個表,不行哦...頭很痛....help me.
A B
John#1005043-11
John0507001
John#1005043-12
John0705002
John#1005043-03
John507004
John507005
John507006
John507007
作者:
Hsieh
時間:
2010-5-13 22:42
本帖最後由 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
作者:
john2006168
時間:
2010-5-13 22:54
原來是這樣子,那老師我應該怎麼改
作者:
john2006168
時間:
2010-5-13 23:47
多謝老師...搞掂晒=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
作者:
Hsieh
時間:
2010-5-14 09:18
改成這樣的格式
John#1005043_11
John0507001_03
John#1005043_12
John0705002_04
John#1005043_03
John507004_05
John507005_07
John507006_08
John507007_09
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
