UC知道excel vba 单元格加上固定值
来源：百度知道 编辑：UC知道 时间：2024/05/20 13:53:17
前提条件.
A1=5
A2=3
A3=9
A4=1
A5=1
固定值=9
以上各列加上任意值.加上一个固定值.
A1=59
A2=39
A3=99
A4=19
A5=19
遇到空值.停止了怎么了呢...
前提条件.
A1=5
A2=3
A3=
A4=1
A5=1
固定值=9
以上各列加上任意值.加上一个固定值.
A1=59
A2=39
A3=9
A4=19
A5=19
A1=5
A2=3
A3=9
A4=1
A5=1
固定值=9
以上各列加上任意值.加上一个固定值.
A1=59
A2=39
A3=99
A4=19
A5=19
遇到空值.停止了怎么了呢...
前提条件.
A1=5
A2=3
A3=
A4=1
A5=1
固定值=9
以上各列加上任意值.加上一个固定值.
A1=59
A2=39
A3=9
A4=19
A5=19
Sub 加九()
i = 1
Do While Cells(i, 1) <> ""
Cells(i, 1) = Cells(i, 1) & 9
i = i + 1
Loop
End Sub
总要有一个结束方式的。
如果是加到最后一个非空单元格。
Sub 加九()
j = [a65536].End(xlUp).Row
For i = 1 To j
Cells(i, 1) = Cells(i, 1) & 9
Next
End Sub
如果加到最后一个单元格。
Sub 加九()
For i = 1 To 65536
Cells(i, 1) = Cells(i, 1) & 9
Next
End Sub
用宏就行了,将国定值放在B1
Sub Macro1()
'
' Macro1 Macro
' 宏由 winnerzjt 录制，时间: 2008-12-17
'
' 快捷键: Ctrl+j
'
ActiveCell.FormulaR1C1 = "=RC[-2]&R1C2"
Selection.AutoFill Destination:=Range("C1:C5"), Type:=xlFillDefault
Range("C1:C5").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False