Excel 2010 VBA - 獲取當前單元格的左側單元格？

Question

我的表是這樣的：

| A | B | ... 
--------- 
| 1 | a | ... 
--------- 
| 2 | | 
--------- 
| 3 | | 
--------- 
| 4 | b | 
--------- 

而且我想這是我的輸出：

| A | B | ... 
--------- 
| a | | ... 
--------- 
| 2 | | 
--------- 
| 3 | | 
--------- 
| b | | 
--------- 

所以我循環列B，每當有一個在B一個值，那麼我應該更換相應一個在A

到目前爲止，我已經試過這樣：

Sub LoopRange() 

    Dim rCell As Range 
    Dim rRng As Range 

    Set rRng1 = Sheet1.Range(A1, A1000) 
    Set rRng2 = Sheet1.Range(B1, B1000) 

    For Each rCell In rRng2.Cells 
     If Not IsEmpty(rCell.Value) Then 
      'SET THE VALUE OF THIS rCELL TO THE CELL THAT'S LEFT OF IT 
    Next rCell 

End Sub 

我該怎麼做？

Answer 1

你可以這樣做結合，而不利用Evaluate循環：

Sub QuickKill() 
Range("A1:A1000") = Application.Evaluate("=IF(B1:B1000<>"""",B1:B1000,A1:A1000)") 
End Sub 

Answer 2

解決了！但退房brettdj的答案。我想這樣會更好。

Sub LoopRange() 

    Dim rCell As Range 
    Dim rRng As Range 

    Set rRng = Sheet1.Range("B1:B1000") 

    For Each rCell In rRng.Cells 
     If Not IsEmpty(rCell.Value) Then 
      rCell.Offset(0, -1) = rCell.Value 
     End If 
    Next rCell 

End Sub 

Answer 3

使用此代碼

For each c in range("a2"a8") 
c.value= c & " " & c.offset(,1) 
next c 
columns(2).delete 

上面的代碼將兩列

c.value= c.offset(,1)