求大神给看下这个怎么定位单元格

qaz10121

现在的代码只能定位到E列最后一个单元格，只有I18单元格有数据时才能定位到I18，怎么设置定位在I18单元格没有数据的时候也能定位到I列18行（行需要变化）
Sub ???淢?????()
On Error GoTo 100
      Dim es As Range, a%
      If Sheets("?????????????").[j:j].Find([c3]) = [c3] Then
      MsgBox "??????????!"
     Else
100:
  Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)
  a = Application.CountA(Sheets("?????????????").[c:c])
  If es.Row = 5 Then MsgBox "????д??????????": End
  Range([a6], es).Copy Sheets("?????????????").Cells(a + 1, 1)
  Sheets("?????????????").Cells(a + 1, "j").Resize(es.Row - 5) = [c3]
  Sheets("?????????????").Cells(a + 1, "k").Resize(es.Row - 5) = Now()
  MsgBox "??????"
  End If
End Sub

koala219

你附件中有
    丢失：Upgrade WPS Spreadsheet 3.0 Object Library(Beta).
这个是什么鬼？我以前没有见到过。
直接现象：range 标准语句无法识别。

qaz10121

现在的代码只能定位到E列最后一个单元格，只有I18单元格有数据时才能定位到I18，怎么设置定位在I18单元格没有数据的时候也能定位到I列18行（行需要变化）
Sub ???淢?????()
On Error GoTo 100
      Dim es As Range, a%
      If Sheets("?????????????").[j:j].Find([c3]) = [c3] Then
      MsgBox "??????????!"
     Else
100:
  Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)      这一行的es值怎么让他等于I18单元格，I列固定不变，18行需要变化
  a = Application.CountA(Sheets("?????????????").[c:c])
  If es.Row = 5 Then MsgBox "????д??????????": End
  Range([a6], es).Copy Sheets("?????????????").Cells(a + 1, 1)
  Sheets("?????????????").Cells(a + 1, "j").Resize(es.Row - 5) = [c3]
  Sheets("?????????????").Cells(a + 1, "k").Resize(es.Row - 5) = Now()
  MsgBox "??????"
  End If
End Sub

qaz10121

koala219 发表于 2020-1-11 17:07
你附件中有
    丢失：Upgrade WPS Spreadsheet 3.0 Object Library(Beta).
这个是什么鬼？我以前没有见 ...

不应该出现这个问题啊