- ©«¤l
- 132
- ¥DÃD
- 56
- ºëµØ
- 0
- ¿n¤À
- 190
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 365
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-17
- ³Ì«áµn¿ý
- 2025-4-8
|
°²³]±NrngSPL¿ï¨ú¬°K4~K24
§Ú·Qn§ä¥X¸Ó½d³ò¤º°_©l»Pµ²§ôªºÄæ¦ì(Row)
°_©l:rngSPL.Row
µ²§ô:rngSPL.Rows.Count + a - 1 --->¦³§ó¦nªº¼gªk¶Ü?- Sub SPL()
- Dim rngSPL As Range
- On Error Resume Next
- Set rngSPL = Application.InputBox(prompt:="Select Data", Type:=8)
- If Err.Number <> 0 Then Exit Sub
- On Error GoTo 0
- a = rngSPL.Row
- b = rngSPL.Rows.Count + a - 1
- ...
- End Sub
½Æ»s¥N½X |
|