彰化一整天的論壇

 找回密碼
 立即註冊
查看: 729|回復: 0

選取一個範圍回傳第一列跟最後一列的副程式

[複製鏈接]
發表於 2014-8-13 15:49:10 | 顯示全部樓層 |閱讀模式
  1. Sub SelectRange()
  2.     Dim UserRange As Range
  3.     Dim iMin As Integer
  4.     Dim iMax As Integer
  5.     On Error Resume Next
  6.     Set UserRange = Application.InputBox(Prompt:="Select a Range", Title:="YOUR RANGE", Type:=8)
  7.     UserRange.Select
  8.     iMin = UserRange.Cells(1, 1).Row
  9.     iMax = UserRange.Rows.Count - 1 + UserRange.Cells(1, 1).Row
  10.     Range("A1").Value = iMin
  11.     Range("A2").Value = iMax
  12.     On Error Goto 0
  13.      
  14.      
  15. End Sub
複製代碼
資料來源:http://www.ozgrid.com/forum/showthread.php?t=63248
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  

GMT+8, 2020-2-25 15:11 , Processed in 0.111753 second(s), 19 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表