12
返回列表 上一主題 發帖

[發問] 如何在A欄 自動填上編號

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
11# 跳轉到 »
發表於 2010-7-29 10:34 | 只看該作者
回復 10# john2006168
  1. Sub nn()
  2. Dim Rng As Range
  3. [A10].Insert xlToRight
  4. [A10] = "plt no"
  5. Set Rng = Range([A11], [A65536].End(xlUp)).SpecialCells(xlCellTypeConstants)
  6. For i = 1 To Rng.Areas.Count
  7. mystr = Rng.Areas(i).Address
  8.    Rng.Areas(i).Insert xlToRight
  9.    Range(mystr).Value =format( i,"'00")
  10. Next
  11. Range([A11], [A65536].End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  12. End Sub
複製代碼
學海無涯_不恥下問

TOP

john2006168
　暱稱: jjjohn

中學生Rank: 2

帖子
178 
主題
65 
精華
0 
積分
252 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2010-5-4 
最後登錄
2024-2-1 
12#
發表於 2010-7-29 11:16 | 只看該作者
Book3.zip (4.62 KB) 回復 11# Hsieh


    多謝老師,另外我想將plt no 加上ref no好像sheet02,請再三幫忙

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
13#
發表於 2010-7-29 13:18 | 只看該作者
本帖最後由 kimbal 於 2010-7-29 13:28 編輯

加在f欄
  1. Sub nn()
  2. Dim Rng As Range
  3. [A10].Insert xlToRight
  4. [A10] = "plt no"
  5. Set Rng = Range([A11], [A65536].End(xlUp)).SpecialCells(xlCellTypeConstants)
  6. For i = 1 To Rng.Areas.Count
  7.    mystr = Rng.Areas(i).Address
  8.    Rng.Areas(i).Insert xlToRight
  9.    Range(mystr).Value =format( i,"'00")
  10. Next
  11. Range([A11], [A65536].End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

  13. For Each c In Range([A10], [A65536].End(xlUp)).Offset(0, 5)
  14. c.Value = c.Offset(0, -5).Value & c.Offset(0, -1).Value
  15. Next
  16. End Sub
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

john2006168
　暱稱: jjjohn

中學生Rank: 2

帖子
178 
主題
65 
精華
0 
積分
252 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2010-5-4 
最後登錄
2024-2-1 
14#
發表於 2010-7-29 13:55 | 只看該作者
[版主管理留言]
  • Hsieh(2010-7-29 21:23): 自己都不思考,只撿現成,永遠都是發問者

回復 13# kimbal

thanks ,如果我想在sheet2 show 出來應該怎麼寫

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
15#
發表於 2010-7-29 20:30 | 只看該作者
回復 14# john2006168

把
  1. For Each c In Range([A10], [A65536].End(xlUp)).Offset(0, 5)
  2. c.Value = c.Offset(0, -5).Value & c.Offset(0, -1).Value
  3. Next
複製代碼
換成
  1. i=0
  2. For Each c In Range([A10], [A65536].End(xlUp)).Offset(0, 5)
  3. i=i+1
  4. worksheets("sheet2").range("e1").offset(i) = c.Offset(0, -5).Value & c.Offset(0, -1).Value
  5. Next
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
12
返回列表 上一主題