重新編號

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

21^# 跳轉到 »

發表於 2011-1-21 09:45 | 只看該作者

回復 19# Hsieh
大大真厲害僅加上UsedRange.Columns.Count這一小段就能使中間有中斷的部份~ 也能夠往下去抓有資料的部份~
又學習到了~

學習才能提升自己

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

22^#

發表於 2011-1-21 21:22 | 只看該作者

回復 20# FAlonso
FAlonso 前輩你好!
前輩謝謝!!歹勢!這樣說明讓你看嘎霧煞煞
你的程式也適用謝謝再三!!

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

23^#

發表於 2011-1-28 10:20 | 只看該作者

回復 21# hugh0620
各位前輩你們好!
      前輩!這個類似問題小弟還是
      作不出來如附檔說明
      請知道的前輩,不吝賜教謝謝再三!!

Leov43.rar (12.29 KB)

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

24^#

發表於 2011-1-28 20:51 | 只看該作者

回復 23# myleoyes

Sub nn()
Range([L1], Cells(1, Columns.Count)) = ""
Do Until i = [A1]
[L1].Offset(, i * 10) = i + 1
i = i + 1
Loop
End Sub

複製代碼

學海無涯_不恥下問

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

25^#

發表於 2011-1-29 15:19 | 只看該作者

回復 23# myleoyes

Sub Ex()
Range("b1").Resize(1, Columns.Count - 1) = ""
For i = 0 To Range("a1") - 1
'Cells(1, 12) 為L1
Cells(1, 12 + i * 10) = i + 1 'i * 10 每隔10欄
Next
End Sub

複製代碼

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

26^#

發表於 2011-1-29 21:56 | 只看該作者

回復 24# Hsieh
hsieh前輩你好!
   偶像前輩!謝謝!!程式雖然短短幾字
   也看過說明?小弟實在無法理解含義
   不好意思無理的請求
   可否解釋一下程式的意思
   Do Until i = [A1]
   尤其是 i代表多少?是6嗎?
   辛苦囉!謝謝再三!!

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

27^#

發表於 2011-1-29 22:13 | 只看該作者

回復 25# GBKEE
GBKEE前輩你好!
　良師!謝謝!!程式可以謝謝再三!!

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

28^#

發表於 2011-1-30 00:26 | 只看該作者

回復 26# myleoyes

變數i就是將來要的編號
Do Until i=[a1]
意思是迴圈執行到i值等於[a1]的值停止

學海無涯_不恥下問

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

29^#

發表於 2011-1-30 09:28 | 只看該作者

回復 28# Hsieh
hsieh前輩你好!
偶像前輩!謝謝再三!!