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

来源：百度知道 编辑：UC知道 时间：2024/05/31 22:42:41
具体地说,就是如我想将A列除第一行标题外,下面所有的值全置为60010101.如何用宏来实现呀?

你录宏，在最后将公式变为
Application.Goto Reference:="R2C1:R65536C1"
Selection.FormulaR1C1 = "=60010101"

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

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

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

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

Dim rng As Range
Dim c
r =
Set rng = Range("A2", "A" & ActiveSheet.UsedRange.Rows.Count)
For Each c In rng
c.Value = "60010101"
Next c