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

sax868

05222012.zip (10.85 KB)

下載次數: 13

2012-5-22 16:18

1. Sub Macro4()
   
2. '
   
3. ' Macro4 Macro
   
4. '
   
5. 
   
6. '
   
7.     Range("C6,C11,C13,C15,C17,C19,C21,C23,C28,C31:C33,C6").Select
   
8.     Selection.FormulaR1C1 = "=R[-1]C"
   
9.     Range("E3:E6,E8:E11,E13,E15,E17,E19,E21,E23,E25:E28,E30:E34,E3").Select
   
10.     Selection.FormulaR1C1 = "=R[-1]C"
    
11.     Cells.Select
    
12.     Selection.Copy
    
13.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
14.         :=False, Transpose:=False
    
15.     Rows("33:34").Select
    
16.     Application.CutCopyMode = False
    
17.     Selection.Delete Shift:=xlUp
    
18.     Range("B32").Select
    
19. End Sub

複製代碼

下載 (138.25 KB)

2012-5-22 16:10

各位大大午安:
請問該如何撰寫VBA，將空格填滿? 以上是我錄的巨集煩請參考

我試著寫可是不靈光:
Sub FF()
Columns("C:C").Select
Rng.Replace "", "=R[-1]C"
End Sub

拜託高手大大們幫幫我...
謝謝!

弱女子留

register313

回復 1# sax868

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

複製代碼

GBKEE

回復 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

複製代碼

register313

回復 3# GBKEE

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

GBKEE

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

sax868

回復 3# GBKEE

感謝register313大大及 GBKEE大大 鼎力相助，兩個方法都可行，很好用喔！

   
弱女子留

register313

回復 5# GBKEE

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