房天下

Fang.com
房天下 > 房天下问答 > 业主生活 > 其他

  • 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

    提问者：lazychen

    发布于2011-01-18

共1个回答
  • Office文档 丨Lv 3
    If app.cells(i, 8) = app.clls(j, 8) Then Text1.Text = app.cells(i, 8) 中的 app.clls(j, 8)改为app.cells(j, 8)
    +1 2011-01-18 举报
热门人气推荐
推荐楼盘小区二手房商圈租房热门知识 相关推荐房产百科
免责声明：问答内容均来源于互联网用户，房天下对其内容不负责任，如有版权或其他问题可以联系房天下进行删除。