VB大虾们有空吗?我要给EXCEL第8列中找有相同的单元格,但是不出结果,麻烦您了.

Private Sub Command4_Click()Dim app As ObjectDim bpp As ObjectDim cpp As ObjectSet app = CreateObject("excel.application")app.Visible = TrueSet bpp = app.Workbooks.Open("J:\q\w.xls")Set cpp = bpp.worksheets(1)cpp.ActivateDim i, j As Integeri = 6For i = 6 To 115 j = i + 1 While (j <= 115) If app.cells(i, 8) = app.clls(j, 8) Then Text1.Text = app.cells(i, 8) j = j + 1 Wend Next iEnd Sub 收起