[已解决]求助：宏为什只能在更新数表执行?

新会甜橙 · 发表于 2012-10-19 17:03

打开工薄在原始数据表为什执行宏不能更新

最佳答案

hwc2ycy

2012-10-19 18:48

Sub 更新()
For i = 2 To Sheet1.[e65536].End(3).Row '取sheet1(原始数据)的最后一行数据的数据行,遍历
For j = 2 To Sheet2.[a65536].End(3).Row '取sheet2(更新数据)的最后一行数据的数据行，遍历
If Sheet1.Cells(i, 5) = Sheet2.Cells(j, 1) Then '如果sheet1的数据行的第5列与sheet2的数据行的第1列相等
For k = 2 To 6
If Sheet2.Cells(j, k) <> "" Then Sheet1.Cells(i, k + 11) = Sheet2.Cells(j, k) '如果sheet2的数据行的第2-6列数据不为空，则把数据复制到sheet1的第13到19列
Next
End If
Next
If Len(Sheet1.Cells(i, 19)) = 20 Then Sheet1.Cells(i, 19).Cut Sheet1.Cells(i, 18) '如果sheet1的数据行的19列数据长度为20，则把19列数据剪切到18列
If Len(Sheet1.Cells(i, 20)) = 20 Then Sheet1.Cells(i, 20).Cut Sheet1.Cells(i, 18) '如果sheet1的数据行的20列数据长度为20，则把20列数据剪切到18列
Next
End Sub

复制代码

加了SHEET2前缀，在哪个表运行都没有问题。

hwc2ycy · 发表于 2012-10-19 18:36

Sub 更新()
Debug.Print Sheet1.[e65536].End(3).Row
For i = 2 To Sheet1.[e65536].End(3).Row '取sheet1(原始数据)的最后一行数据的数据行,遍历
For j = 2 To Sheet2.[a65536].End(3).Row '取sheet2(更新数据)的最后一行数据的数据行，遍历
If Sheet1.Cells(i, 5) = Cells(j, 1) Then '如果sheet1的数据行的第5列与sheet2的数据行的第1列相等
For k = 2 To 6
If Cells(j, k) <> "" Then Sheet1.Cells(i, k + 11) = Cells(j, k) '如果sheet2的数据行的第2-6列数据不为空，则把数据复制到sheet1的第13到19列
Next
End If
Next
If Len(Sheet1.Cells(i, 19)) = 20 Then Sheet1.Cells(i, 19).Cut Sheet1.Cells(i, 18) '如果sheet1的数据行的19列数据长度为20，则把19列数据剪切到18列
If Len(Sheet1.Cells(i, 20)) = 20 Then Sheet1.Cells(i, 20).Cut Sheet1.Cells(i, 18) '如果sheet1的数据行的20列数据长度为20，则把20列数据剪切到18列
Next
End Sub

复制代码

帮你注释好了，你应该能看懂了。

hwc2ycy · 发表于 2012-10-19 18:40

hwc2ycy · 发表于 2012-10-19 18:40

hwc2ycy · 发表于 2012-10-19 18:41

实际上数据是更新好了，我没有验证你剪切的那二行代码。应该是没有问题的。

hwc2ycy · 发表于 2012-10-19 18:42

本帖最后由 hwc2ycy 于 2012-10-19 19:37 编辑

更新数据.rar (14.84 KB, 下载次数: 1)

hwc2ycy · 发表于 2012-10-19 18:43

本帖最后由 hwc2ycy 于 2012-10-19 19:26 编辑

刚出去散步回来，想了想，我搞错了。
因为你的代码写在模块里了，而引用SHEET2的CELLS没有加前缀。
所以在代码运行前，代码里没有加SHEET前缀的CELLS引用，就会以当前活动工作表为参照引用。

hwc2ycy · 发表于 2012-10-19 18:46

本帖最后由 hwc2ycy 于 2012-10-19 19:36 编辑

或者把代码写在SHEET2，也可以在任意工作表里运行。

hwc2ycy · 发表于 2012-10-19 18:48

Sub 更新()
For i = 2 To Sheet1.[e65536].End(3).Row '取sheet1(原始数据)的最后一行数据的数据行,遍历
For j = 2 To Sheet2.[a65536].End(3).Row '取sheet2(更新数据)的最后一行数据的数据行，遍历
If Sheet1.Cells(i, 5) = Sheet2.Cells(j, 1) Then '如果sheet1的数据行的第5列与sheet2的数据行的第1列相等
For k = 2 To 6
If Sheet2.Cells(j, k) <> "" Then Sheet1.Cells(i, k + 11) = Sheet2.Cells(j, k) '如果sheet2的数据行的第2-6列数据不为空，则把数据复制到sheet1的第13到19列
Next
End If
Next
If Len(Sheet1.Cells(i, 19)) = 20 Then Sheet1.Cells(i, 19).Cut Sheet1.Cells(i, 18) '如果sheet1的数据行的19列数据长度为20，则把19列数据剪切到18列
If Len(Sheet1.Cells(i, 20)) = 20 Then Sheet1.Cells(i, 20).Cut Sheet1.Cells(i, 18) '如果sheet1的数据行的20列数据长度为20，则把20列数据剪切到18列
Next
End Sub

复制代码

加了SHEET2前缀，在哪个表运行都没有问题。

新会甜橙 · 发表于 2012-10-19 22:12

hwc2ycy 发表于 2012-10-19 18:48
加了SHEET2前缀，在哪个表运行都没有问题。

谢谢老师帮助,解释详细,测试通过

		自动登录	找回密码
密码			注册