作者：乔山办公网日期：
返回目录：excel表格制作
可以重新录制，选择保存在“个来人宏工作簿”就行了，Excel会自动生成PERSONAL.xls，目录源为：
WinXP or Win2000: C:\Documents and Settings\用户名\Application Data\Micosoft\Excel\XLSTART，总百之是在XLSTART目录中吧
保存好后再打开Excel时，就会自动加载宏，可用于所有打开的度Excel文件，但仅限于这台电脑
在下方百右键单击sheet2标签度，选择“查看知代码”将下面代码粘贴进去道就可回以了
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c
With Sheets("sheet3")
c = .Range("iv6").End(1).Column
If .Range("a6") <> "" Then
c = c + 1
End If
End With
Range("c6:c149").copy Sheets("sheet3").Cells(6, c)
End Sub
有问题答可以 百度HI 我