编译错误：方法或和数据成员未找到 急需求助

值班的点点

大家好，刚学excel自动化编程，变了一个小程序，将一个工作表中的数据复制到另一个表格中，编译出了问题，方法和数据成员未找到，请教大家，先谢谢大家，程序如下：（中间对比了单元格内容是否重复，重复的内容不复制）

Sub Macro1()
    Dim xlapp1 As Excel.Application      
    Dim xlbook1 As Excel.Workbook
    Dim xlsheet1 As Excel.Worksheet   

    Dim iRow As Long
    Dim iCol As Long


    Set xlapp1 = CreateObject("Excel.Application")

    Set xlbook1 = xlapp1.Workbooks.Open("C:\Users\web\Downloads\日志.xlsx")     

    Set xlsheet1 = xlbook1.Worksheets(1)

             For iRow = 2 To xlsheet1.Rows.Count
                  For iCol = 1 To xlsheet1.Columns.Count

                  If xlsheet1.Cells(iRow, iCol) = " xlsheet1.Cells(iRow - 1, iCol)" Then

                      If xlsheet1.Cells(iRow, iCol) = "xlsheet1.Cells(iRow , iCol + 1)" Then

                          xlsheet1.Cells(iRow, iCol + 2).Copy
                            Sheet1.Cells(iRow, iCol + 2).Paste
                    Else

                      xlsheet1.Cells(iRow, iCol + 1).Copy
                            Sheet1.Cells(iRow, iCol + 1).Paste
                       End If
                   Else
                     xlsheet1.Cells(iRow, iCol).Copy
                        Sheet1.Cell(iRow, iCol).Paste
               End If


             Next
          Next
    xlapp1.Quit
    Set xlapp1 = Nothing

         
End Sub

lichuanboy44

粗心的缘故，cell少了一个s
               Else
                     xlsheet1.Cells(iRow, iCol).Copy
                        Sheet1.Cell(iRow, iCol).Paste
               End If

心正意诚身修

來學習。

爱疯

遍历次数
= 1048575行 * 16384列
= 17179852800次

就是什么也不做，也会死机

值班的点点

lichuanboy44 发表于 2016-4-17 10:31
粗心的缘故，cell少了一个s
               Else
                     xlsheet1.Cells(iRow, iCol).Copy ...

加了s调试不过了，不知道什么原因

值班的点点

爱疯 发表于 2016-4-17 11:19
遍历次数
= 1048575行 * 16384列
= 17179852800次

遍历次数改了也还是这样

爱疯

还不好，就直接说明需求，并上传失败的文件

值班的点点

爱疯 发表于 2016-4-17 12:32
还不好，就直接说明需求，并上传失败的文件

恩恩，好的