<em>excel</em>2007里面宏代码-excel 2007宏,excel2007宏怎么

代码zhidao如下专：属

Sub test()
On Error Resume Next
Dim sht As Worksheet, rg As Range
For Each sht In Worksheets
sht.Unprotect Password:="********"
  For Each rg In sht.UsedRange
    If VBA.IsNumeric(rg) And Len(rg) > 0 Then rg = rg / 10000
  Next
Next
End Sub

Sub auto_open()
    For Each sh In Sheets
        sh.Select
        ActiveWindow.DisplayHeadings = False
    Next
End Sub

alt+F11
菜单，插入，模块
将以下代码复制到右边空白区域

Sub 填充()
i = Sheets(3).Range("A65536").End(xlUp).Row() + 3
With Sheets(2).Range("A4:P4")
Sheets(3).Range("a" & i & ":P" & i) = .Value
Sheets(2).Range("A4:P4").Clear
End With
End Sub

然后，在sheet2表的Q4做一个窗体按钮，当你zhidao创建后会自动弹回出一个指定宏窗口，你指定一下答“填充”这个宏
确定
然后可以了。
当然你在sheet2中的A4:P4输入完内容，点一下Q4里你做的这个按钮，内容会复制到sheet3
同时sheet3的清空。
如果你的sheet3中A1:A3是有内容的，把i这个变量的+3修改为+1