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

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 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

學海無涯_不恥下問

　暱稱: jjjohn

帖子: 178
主題: 65
精華: 0
積分: 252
點名: 0
作業系統: WINDOW7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2010-5-4
最後登錄: 2024-2-1

8^#

發表於 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

　暱稱: jjjohn

帖子: 178
主題: 65
精華: 0
積分: 252
點名: 0
作業系統: WINDOW7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2010-5-4
最後登錄: 2024-2-1

7^#

發表於 2010-5-13 22:54 | 只看該作者

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

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 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

學海無涯_不恥下問

　暱稱: jjjohn

帖子: 178
主題: 65
精華: 0
積分: 252
點名: 0
作業系統: WINDOW7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2010-5-4
最後登錄: 2024-2-1

5^#

發表於 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

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2010-5-13 22:26 | 只看該作者

回復 3# john2006168

沒問題阿

aa.rar (6.89 KB)

學海無涯_不恥下問

　暱稱: jjjohn

帖子: 178
主題: 65
精華: 0
積分: 252
點名: 0
作業系統: WINDOW7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2010-5-4
最後登錄: 2024-2-1

3^#

發表於 2010-5-13 21:50 | 只看該作者

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

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 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

複製代碼

學海無涯_不恥下問