Board logo

標題: [發問] 此巨集如何寫?? [打印本頁]
作者: t8899    時間: 2013-1-30 20:21     標題: 此巨集如何寫??

e20到e200 為公式如下
e20=IF(Y20="","",Y20/(y20-z20))
e21=IF(Y21="","",Y21/(y21-z21))
.....
...
要移到e20到e200 之間倒數第一筆"不等於空白"的儲存格
巨集如何寫?
作者: t8899    時間: 2013-1-30 20:32

更改一下
是mouse 要移到e20到e200 之間倒數第一筆"不等於空白"的儲存格
作者: kimbal    時間: 2013-1-30 22:11

回復 2# t8899
  1. Sub TEST1()
  2.    
  3.     firstaddress = ""
  4.     With Selection
  5.         If .Cells(1, 1) = "" Then
  6.             firstaddress = .Cells(1, 1).Address
  7.             lastAddress = firstaddress
  8.         End If
  9.         Set c = .Find("", LookIn:=xlValues)
  10.         If Not c Is Nothing Then
  11.             If firstaddress = "" Then
  12.                 firstaddress = c.Address
  13.             End If
  14.             lastAddress = firstaddress
  15.             Do
  16.                 Set c = .FindNext(c)
  17.                 If Not c Is Nothing And c.Address <> firstaddress Then
  18.                     lastAddress = c.Address
  19.                 End If
  20.             Loop While Not c Is Nothing And c.Address <> firstaddress
  21.         End If
  22.     End With
  23.     MsgBox (lastAddress)
  24. End Sub
複製代碼
作者: t8899    時間: 2013-1-31 06:28

回復  t8899
kimbal 發表於 2013-1-30 22:11


謝謝!
這是另一個答案提供參考
Range("e" & [e20:e200].Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, _
   SearchDirection:=xlPrevious).EntireRow.Row).Select



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)