返回列表 上一主題 發帖

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

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
105  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-5-7 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2010-5-12 23:05 | 顯示全部帖子
回復 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

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
105  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-5-7 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2010-5-13 22:26 | 顯示全部帖子
回復 3# john2006168


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

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
105  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-5-7 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 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
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
105  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-5-7 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 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
學海無涯_不恥下問

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題