返回列表 上一主題 發帖

資料相同排在同一列的問題

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-4-3 13:41 | 顯示全部帖子
回復 1# lionliu
  1. Sub xx()
  2. Columns("D:IV") = ""
  3. [D6] = "BRAND"
  4. For Each a In Range([B2], [B65536].End(xlUp))
  5.   Set Rng = Columns("D").Find(a, , , xlWhole)
  6.   If Rng Is Nothing Then [D65536].End(xlUp).Offset(1, 0) = a
  7.   Set Rng = Columns("D").Find(a, , , xlWhole).Offset(0, 252)
  8.   Rng.End(xlToLeft).Offset(0, 1) = a.Offset(0, -1)
  9. Next
  10. End Sub
複製代碼

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-4-3 14:43 | 顯示全部帖子
回復 3# GBKEE

GBKEE版主的指導與幫忙,小弟永遠記得

真正進入論壇學習,大約是去年10月左右
那時VBA的部份,一直在Range,Cells,Select,For...Next等基本語法的使用
到目前,應該說VBA有一些基礎,不過總覺得一直在同樣的地方繞來繞去,無法突破
原因自己清楚
1.工作並無此需求
2.自己並非認真學習(這是主因)

上論壇的原因
1.學習
2.幫助別人,自己也會有成就感
3.減少幾位超版,版主的負擔(應該沒有資格說這樣的話)
   我的一些解答是基礎版本(不是好的答案,只希望沒有錯誤)

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題