ªð¦^¦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

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD