返回列表 上一主題 發帖

[發問] 請問如何撰寫VBA，將空格填滿 (已解決)

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-5-22 16:43 | 顯示全部帖子
回復 1# sax868
  1. Sub Ex()
  2.     Dim xi As Integer
  3.     With Range("A:A").SpecialCells(xlCellTypeConstants)   'A欄的資料範圍
  4.      For xi = 2 To 4 Step 2
  5.         With .Offset(, xi)                                'C ,D 欄
  6.             .SpecialCells(xlCellTypeBlanks) = "=R[-1]C"   '空白的範圍 寫下公式
  7.             .Value = .Value                               '欄範圍中的公式換為的值
  8.         End With
  9.      Next
  10.     End With
  11. End Sub
複製代碼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-5-22 16:57 | 顯示全部帖子
本帖最後由 GBKEE 於 2012-5-22 17:02 編輯

回復 2# register313
為何會拐彎用Replace
X.Replace "", X.Offset(-1, 0) -> X.Value = X.Offset(-1, 0)
回復 4# register313
是將空白的Cell 填上公式 ,再取得公式的值.

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題