作者：乔山办公网日期：
返回目录：excel表格制作
想不明白zd你为什么会这样写
简简单内单容用FOR不行吗
Sub test()
myrow = Range("A65536").End(xlUp).Row
For i = 1 To myrow
If InStrRev(Range("A" & i), "钢铁") > 0 Then
Range("F" & i) = Range("A" & i)
End If
Next
End Sub
i = Range("b65536").End(xlUp).Row - 9 '在已使用区域最末一行添zhidao加
是这一行的专问题.
如果Range("b65536").End(xlUp).Row 小于或等于9 的话. i 就小于=0 了
这样 对于下面的 Cells(i, 2).EntireRow.Insert 来说 就会产生错误.
因为属cells对象要求的行和列参数必须是大于 0 的.
以Windows7操作为例：
1、首先需要打开控制面百板的界面进入，如图所示，点击右边程序和功能度。
2、然后找到需要修复的软件，点击选中office软件鼠标右键，点击更改。
3、最后，再弹出的界版面点击修复，如图所权示，然后点击进行修复，这样操作即可解决问题。
excel运行VBA，出现1004错误是因为未勾选“信任对VBA工程对象模型的访问”选项，勾选即可。
工具/材料：Microsoft Office Excel2007版，Excel表格。知
1、首先双击打开Excel表格。
2、其道次在该窗口上，点击左上角的OFFICE图标。
3、接着在弹出窗口中，点击下方的“Excel选项”按钮。
4、其次在弹出窗口中，点击左侧里内“信任中心”选项。
5、之后在弹出窗口中，点击右侧里“信任中心设置”按钮。
6、然后在弹出窗口中，点击左侧里“宏设置”选项。
7、再者在弹出窗口中，勾选右侧里“信任对VBA工程对象模型的访问”选项。
8、最后在弹出窗口中，点击“确定”按钮即容可。