代码放到个人宏工作薄无法使用

beyond1314

自己写了一段代码，在原来的工作薄了可以使用，但是我想把它做成一个通用的程序在其它工作薄里也可以用，就建立了个人宏工作薄，直接把代码考进去， 但是运行后总是各种报错，搞不懂了，请各位大佬帮忙看看吧！代买如下：
Application.ScreenUpdating = False
Dim endrow, i, j
Sheet2.Range("a:z").ClearContents
endrow = Sheet1.Range("A:A").Find("*", , xlValues, , , xlPrevious).Row
Sheet1.Range("A4:A" & endrow).Copy
Sheet2.Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
For i = 4 To endrow - 3
'For j = 7 To 15
If Sheet1.Cells(i, 7) <> "" Then Sheet2.Cells(i - 3, 3) = "名称1"
If Sheet1.Cells(i, 7) = "" And Sheet1.Cells(i, 8) <> "" Then Sheet2.Cells(i - 3, 4) = "名称1"
If Sheet1.Cells(i, 9) <> "" Then Sheet2.Cells(i - 3, 5) = "名称2"
If Sheet1.Cells(i, 9) = "" And Sheet1.Cells(i, 10) <> "" Then Sheet2.Cells(i - 3, 6) = "名称2"
If Sheet1.Cells(i, 11) <> "" Then Sheet2.Cells(i - 3, 7) = "名称3"
If Sheet1.Cells(i, 12) <> "" Then Sheet2.Cells(i - 3, 8) = "名称4"
If Sheet1.Cells(i, 12) = "" And Sheet1.Cells(i, 13) <> "" Then Sheet2.Cells(i - 3, 9) = "名称4"
If Sheet1.Cells(i, 12) = "" And Sheet1.Cells(i, 13) = "" And Sheet1.Cells(i, 14) <> "" Then Sheet2.Cells(i - 3, 10) = "名称4"
If Sheet1.Cells(i, 15) <> "" Then Sheet2.Cells(i - 3, 11) = "名称5"
If Sheet1.Cells(i, 18) <> "" Then Sheet2.Cells(i - 3, 12) = "名称6"
If Sheet1.Cells(i, 19) <> "" Then Sheet2.Cells(i - 3, 13) = "名称7"
Next i
'合并单元格内容到一个单元格
Dim c%, str1$, str2$, str3$, str4$
    For i = 1 To endrow - 3
        For c = 3 To 13
            If Sheet2.Cells(i, c) <> "" Then
                str1 = Sheet2.Cells(i, c)
                str2 = str2 & "、" & str1
            End If
        Next c
    Sheet2.Cells(i, 2) = Mid(str2, 2) & "称"
    str2 = ""
    If Sheet2.Cells(i, 2) = "称" Then Sheet2.Cells(i, 2) = "XX称"
    Next i
Sheet2.Range("B:B").Columns.AutoFit
Application.ScreenUpdating = True

322344

我电脑上面没有出现错误 随便填的数据 20行以上。

yuwd3

你的程序用CodeName名，你能保证每个工作簿都有相同的CodeName名？如果不同肯定出错。

beyond1314

yuwd3 发表于 2018-1-22 18:40
你的程序用CodeName名，你能保证每个工作簿都有相同的CodeName名？如果不同肯定出错。

都是系统默认的，都没有改过啊

jsgj2023

论坛搜素自定义选项卡,有相关的学习资料,参考制作通用的工具!

Nhand

具体的代码我没去分析，但是你的代码感觉就像是新手在东拼西凑。sheet1.cell  sheet2.cell 这种写法很便利，就跟直接用cell一样很便利，但是正如cell这种写法遇到多个sheet的时候，就会产生错误一样。sheet1的这种写法局限性非常之大。建议任何情况下采用 worksheets("sheet1")的写法，这是一种习惯

jiminyanyan

个人宏工作薄没什么用处，不要用他…………

xiaocake

就是工作薄对象的问题吧，明确一下工作薄。
Sheets(n).Range...      Sheets(n).Cells...
改成
ActiveWorkBook.Sheets(n).Range...     ActiveWorkBook.Sheets(n).Cells...