請問如何撰寫VBA，將空格填滿 (已解決) - Excel程式區

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

　頭銜: 麻辣路人甲

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2012-5-22 16:37 | 顯示全部帖子

回復 1# sax868

Sub zz()
LR = [A2].End(xlDown).Row
On Error Resume Next
Set Rng = Union(Range("C2:C" & LR), Range("E2:E" & LR)).SpecialCells(xlCellTypeBlanks)
For Each X In Rng
X.Replace "", X.Offset(-1, 0)
Next
End Sub

複製代碼

　頭銜: 麻辣路人甲

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-5-22 16:51 | 顯示全部帖子

回復 3# GBKEE

僅用一次公式填滿整欄的空格
再用一次值填滿整欄的公式

　頭銜: 麻辣路人甲

2012龍年全勤獎章熱烈參與勳章

3^#

發表於 2012-5-22 17:03 | 顯示全部帖子

回復 5# GBKEE

哎呀! 這就是VBA各種語法不精熟所造成的結果! (不過這次也太多此一舉了)
請GBKEE版主多指導!

靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。