返回列表 上一主題 發帖

[發問] 向右尋找最後一格有格線的儲存格

  1. Sub FindFormatDemo()
  2.     Application.FindFormat.Borders.LineStyle = 1
  3.     Set c = Rows(9).Find(What:="", After:=[a9], SearchOrder:=2, SearchDirection:=2, SearchFormat:=True)
  4.     If Not c Is Nothing Then MsgBox c.Address
  5.     End Sub
複製代碼

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大,小人氣大。
返回列表 上一主題