<em>EXCEL2007宏代码</em>-excel2007 宏代码,excel如何使用宏的代

方法很多：快捷键ALT+F11
工具——百宏——VB编辑度器
鼠标右键点sheet名——查看代码

代码一般写在模块里，有时候也会写问在表里
可以复制
您也可以向我们团答队发出请求，会有更专业的人来为您解答版！
如果我的回答没能帮权助您，请继续追问。

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

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

代码来如下源：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