返回列表 上一主題 發帖

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

回復 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

回復 3# john2006168


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

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

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

TOP

        靜思自在 : 難行能行,難捨能捨,難為能為,才能昇華自我的人格。
返回列表 上一主題