Excel表值更改

Question

我在Excel表Table1中有一個表。 ColumnA中的值通過公式更改，而不是用戶輸入。當ColumnA中的值發生更改時，如果ColumnB值爲null，我希望使用與ColumnA相同的值填充ColumnB中的相應行。我如何使用VBA實現這一點，我相信我需要使用Worksheet Calculate事件。

感謝

Answer 1

根據您的標準這將在-至少移動你的價值觀。無事件代碼，還沒有想通出來呢..

子宏1（）

'Macro1的宏 '

「初始化變量

昏暗R作爲範圍

昏暗R1作爲範圍

Dim b As Range

'設定範圍作爲塔A

集合R =表（ 「工作表Sheet」）。ListObjects（ 「表1」）。ListColumns（ 「ColumnA」）。DataBodyRange

' 設定範圍作爲塔B

組R1 =表（ 「工作表Sheet」）。ListObjects（ 「表1」）。ListColumns（ 「ColumnB」）。DataBodyRange

「**遍歷在列 「B」 的每個小區，並分配給的值。如果0

For Each b In r1.Cells

If b = 0 Then 
b = Cells(b.Row, b.Column - 1) 

End If 


Next b 

末次