excel如何用宏实现将某列的值全置为同一值

Question

具体地说,就是如我想将A列除第一行标题外,下面所有的值全置为60010101.如何用宏来实现呀?

Answer 1

Private Sub CommandButton2_Click()
Dim rag As Range
For Each rag In Range("A2:A65536")
rag.Value = 60010101
Next
End Sub
其实本题不必使用宏就能完成，方法是：
选定A2:A65536,输入60010101，按Ctrl+Enter

Answer 2

你录宏，在最后将公式变为
Application.Goto Reference:="R2C1:R65536C1"
Selection.FormulaR1C1 = "=60010101"本回答被提问者和网友采纳

Answer 3

第二行60010101，然后把鼠标放在其右下角，出现一十字星，按住鼠标往下拖，就行了

Answer 4

Private Sub CommandButton1_Click()
for i=2 to 65536
Range("A" & i).value=60010101
next
End Sub

Answer 5

range("A2",[A65536].end(3)) = 60010101