ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Rangeªº°_©lµ²§ô

[µo°Ý] Rangeªº°_©lµ²§ô

°²³]±NrngSPL¿ï¨ú¬°K4~K24
§Ú·Q­n§ä¥X¸Ó½d³ò¤º°_©l»Pµ²§ôªºÄæ¦ì(Row)
°_©l:rngSPL.Row
µ²§ô:rngSPL.Rows.Count + a - 1  --->¦³§ó¦nªº¼gªk¶Ü?
  1. Sub SPL()
  2. Dim rngSPL As Range

  3. On Error Resume Next
  4. Set rngSPL = Application.InputBox(prompt:="Select Data", Type:=8)
  5. If Err.Number <> 0 Then Exit Sub
  6. On Error GoTo 0
  7. a = rngSPL.Row
  8. b = rngSPL.Rows.Count + a - 1
  9. ...
  10. End Sub
½Æ»s¥N½X

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2015-3-30 17:26 ½s¿è

¦^´_ 1# acdx
b = rngSPL.Cells(rngSPL.count).Row
®t¤£¦h¡A¦Û¤v¥Î²ßºDªº´N¦n
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD