½Ð°Ý¦p¦ó¥ÎVBA.¦Û°Ê¦X¨ÖÀx¦s®æ"¸ó¦C¸m¤¤"
- ©«¤l
- 18
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 26
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2013-6-17
- ³Ì«áµn¿ý
- 2020-6-20
|
½Ð°Ý¦p¦ó¥ÎVBA.¦Û°Ê¦X¨ÖÀx¦s®æ"¸ó¦C¸m¤¤"
ª¦¤å¹L¤@¯ë°Ï ¬Ý¨ìÃþ¦üªº°ÝÃD¦n¹³¨ç¼ÆµLªk¸Ñ¨M
©Ò¥H¨ìµ{¦¡°Ï¨Ó½Ð¨DÀ°¦£
¦p¹Ï
¦³¤°»ò¿ìªk ¥i¥HÅý¹Ï¤ù¥ªÃäAÄæ¸òBÄæ ¸ó¦C¸m¤¤ ¸ò¹Ï¤ù¥kÃäGÄæ¸òHÄæ¤@¼Ë
¦³¨Ï¥Î¿ý»s¥¨¶°ªº¤èªk ¦ý¦]¬°¨C±i¤u§@ªín¸ó¦C¸m¤¤ªºªÅ¹j¼Æ¤£¦P ¸ê®Æªº¦h¹è¤]¤£¦P
©Ò¥H¥Î¿ý»sªº¤èªk¤]¤£¦æ
Àµ½Ð¦U°Ý¤j¤jÀ°¦£
¸ó¦C¸m¤¤.rar (2.22 KB)
|
|
|
|
|
|
|
- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
- Sub test()
- Dim lngRowCount As Long
- Dim lngRowCounter As Long
- Dim lngRowCountLast As Long
-
- lngRowCount = Range("C1").End(xlDown).Row
-
- If lngRowCount = 2 Then Exit Sub
- lngRowCountLast = 1
-
-
- For lngRowCounter = 2 To lngRowCount - 1
- With Range("A1")
- If lngRowCounter = lngRowCount - 1 And Not (lngRowCountLast = lngRowCounter - 1) Then
- Range(.Offset(lngRowCountLast), .Offset(lngRowCounter)).Merge
- Range(.Offset(lngRowCountLast, 1), .Offset(lngRowCounter, 1)).Merge
- End If
- If .Offset(lngRowCounter) <> "" Then
- If Not (lngRowCountLast = lngRowCounter - 1) Then
- Range(.Offset(lngRowCountLast), .Offset(lngRowCounter - 1)).Merge
- Range(.Offset(lngRowCountLast, 1), .Offset(lngRowCounter - 1, 1)).Merge
- End If
- lngRowCountLast = lngRowCounter
- End If
- End With
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 26
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2013-6-17
- ³Ì«áµn¿ý
- 2020-6-20
|
|
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 26
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2013-6-17
- ³Ì«áµn¿ý
- 2020-6-20
|
¦A½Ð°Ý¤@¤U
1.¥i§_קïµ{¦¡¬°"¿ï¨úªºÀx¦s®æ½d³ò".©ÎµÛ¿ï¨úªºÄæ§O
2.©ÎµÛ¦X¨ÖÀx¦s®æ¥u¦³©T©w¤@Äæ®É
À³¸Óקïþ¦U¦a¤è
ÁÂÁÂ |
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 4# joey3277
¸Õ¸Õ¬Ý- Option Explicit
- Sub Ex()
- Dim Rng(1 To 3) As Range, A As Range, C As Range, R As Integer
- On Error Resume Next '¤£²z·|µ{§Ç¤Wªº¿ù»~,Ä~Äò°õ¦æµ{¦¡
- Set Rng(1) = Application.InputBox("¿ï¨úÀx¦s®æ(¥i¿ï¦h«½d³ò)", Type:=8) '¦p¨S¦³¿ï¨úÀx¦s®æ:µ{§Ç¤Wªº¿ù»~
- If Err <> 0 Then Exit Sub 'µ{§Ç¤W¦³¿ù»~
- On Error GoTo 0 '¤£³B¸Ìµ{§Ç¤Wªº¿ù»~
- For Each A In Rng(1).Areas 'ª«¥ó¶°¦X: Areas (¦h«½d³ò)
- For Each C In A.Columns 'ª«¥ó¶°¦X: Columns(øó¦ì)
- Set Rng(2) = C.Cells(1) 'ª«¥ó:½d³òªº,²Ä1Ó,Àx¦s®æ¶}©l
- R = C.Cells(C.Cells.Count).Row '¼ÆÈ :ª«¥ó½d³ò³Ì«áªºÀx¦s®æ¦C¸¹
- Do
- Set Rng(3) = Rng(2).Offset(1) 'ª«¥ó Rng(3): Rng(2)ªº¤U¤@¦CÀx¦s®æ
- Do While Rng(3) = "" And Rng(3).Row <= R 'While(±ø¥ó¦¨¥ß,°õ¦æ°j°é):(ª«¥ó="" ¥B¶· ª«¥ó<>ª«¥ó½d³òªº³Ì«á¦C¸¹)
- Set Rng(3) = Rng(3).Offset(1) 'ª«¥ó Rng(3): Rng(3)ªº¤U¤@¦CÀx¦s®æ
- Loop
- Rng(1).Parent.Range(Rng(2), Rng(3).Offset(-1)).Merge 'Merge(¦X¨ÖÀx¦s®æ)
- Set Rng(2) = Rng(3) 'ª«¥ó Rng(2): ¦³¸ê®Æ¼ÆȪºÀx¦s®æ
- Loop Until Rng(3).Row > R 'Until(±ø¥ó¤£¦¨¥ß,°õ¦æ°j°é)
- Next
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 26
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2013-6-17
- ³Ì«áµn¿ý
- 2020-6-20
|
ÁÂÁ¤j¤jªºÀ°¦£¡I¡I»°ºò¸Õ¸Õ |
|
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 26
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2013-6-17
- ³Ì«áµn¿ý
- 2020-6-20
|
½Ð±Ð¤@¤Ukimbal ¤j¤j
¨Ï¥Î§A´£¨Ñªºµ{¦¡½X¹J¨ì¤F¤@¦U°ÝÃD
¦pªG³Ì«á¤@Ón¦X¨ÖªºÀx¦s®æn¦X¨Öªº®æ¼Æ¬O¨â®æªº¸Ü
µ{¦¡½X´N·|§ì¤£¨ì³Ì«á¤@¦U
¦p´£¨Ñªºªí¤W³Ì«á¤@®æn¦X¨Öªº¬O15.16.17¦C³o¨S¦³°ÝÃD
¦ý¦pªG¥un¦X¨Ö15.16¦C µ{¦¡´N¥u·|°õ¦æ¨ì13¦C
PS.¥i¥t½Ð±Ð¦pªGn¦X¨Öªº¥u¦³BÄæ
¨º§A´£¨Ñªºµ{¦¡½Xn§ïþÃä©O? |
|
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 26
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2013-6-17
- ³Ì«áµn¿ý
- 2020-6-20
|
ÁÂÁÂGBKEE ¤j¤j´£¨Ñªºµ{¦¡½X
´ú¸Õ¹L¤F ¶W¯Å¤è«K¦n¥Î
ÁÂÁÂÀ°¦£ |
|
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 26
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2013-6-17
- ³Ì«áµn¿ý
- 2020-6-20
|
GBKEE ¤j¤j
§AÀ°¦£×§ïªºµ{¦¡½X ¥X²{2¦Uª¬ªp
1.©Ò¿ï¨úªº½d³ò²Ä¤@¦U¦X¨ÖªºÀx¦s®æªº²Ä¤@¦C³£µLªk¦X¨Ö.¦p:1.2¦Cn¦X¨Ö(µL§@¥Î)¦p:1.2.3¦Cn¦X¨Ö(2.3¦C·|¦X¨Ö.¦ý¤£·|¸ò1¦C¦X¨Ö)¦p:1.2.3.4¦Cn¦X¨Ö(2.3.4·|¦X¨Ö.¦ý1¦CÁÙ¬OµLªk¤@°_¦X¨Ö)
¬O¨C¦¸n¿ï¨ú¦X¨Ö½d³ò²Ä¤@¦U¦X¨Ö³£·|¦³³oºØ²{¶H
2.¦pªG¬OÂI¿ï¾ãÄæ´N·|³Ì«á¤@¦U¦X¨ÖÀx¦s®æµL¤jªº©¹¤U©µ¦ù
PSì¨Ókimbal ¤j¤j´£¨Ñªºµ{¦¡½X²£¥Íªº¨º¦U°ÝÃD.¦b§A×¥¿ªºµ{¦¡½X¸Ì¤w¸Ñ¨M
¯u¤£¦n·N«ä ¤@ª½§ä³Â·Ð:( |
|
|
|
|
|
|