excel宏-excel宏新手教程（二）第一次学习宏！

一、如果是整列数据前面加上17，如原数据是43，要变为1743，可新建一列，并输入公式=17&单元格,拖动就可完成了。

针对第二种情况做了一个简单的宏，你选选择一块区域再执行该宏就可以了。

Sub jia()

For Each i In Selection '在选择区域中循环

If i.Value <> "" Then '如果当前单元格不为空

temp = i.Value '临时存储原单元格数值

i.Value = "17" & temp '原单元格数值前面加上17并作为新单元格数值写入,改为17+temp即可完成第一种情况(不过要保证该列数据为数值,否则不能与17相加时会报错)。

End If

Next

End Sub

二、函数公式 C1=A1+B1

Range("c1") = Range("a1") + Range("B1")

或

Cells(1, 3) = Cells(1, 1) + Cells(1, 2)

三、对100行进行求和。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For i = 1 To 100

Cells(i, 3) = Cells(i, 1) + Cells(i, 2)

Next i

End Sub