- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 4# idnoidno
§Ú¦A°õ¦æ¤@¦¸¡Aµ²ªG¬O§Anªº·N«ä¡A¤£¹L§ÚÁÙ¬Oקï¤@¤U- Sub ¥¨¶°1()
- n = 1
- For Each Rng In ¤u§@ªí1.Range("B1", ¤u§@ªí1.Cells(1, Columns.Count).End(xlToLeft).Address) '²Ä¤@¦C"°ÊºA"Ū¨ú°µ´`Àô
- RngRow = ¤u§@ªí1.Columns(Rng.Column).Find("*", , , , , xlPrevious).Row '´M§ä§ïÄ檺³Ì«á¤@ÓÀx¦s®æ
- ¤u§@ªí2.Cells(n, 1) = Rng
- ¤u§@ªí2.Cells(n, 2) = ¤u§@ªí1.Cells(RngRow, 1) '¤é´Á¼g¤J¤u§@ªí2
- ¤u§@ªí2.Cells(n, 3) = ¤u§@ªí1.Cells(RngRow, Rng.Column) '³Ì«áªº¼Æȼg¤J¤u§@ªí2
- n = n + 1
- Next
- End Sub
½Æ»s¥N½X ¤G¡B§Úµ{§Ç¬O°µ°ÊºA´`Àô¡A¥H§A¤W¶ÇªºÀÉ®×¥h°µªº¡A¨Ì³oÓÀÉ®×¥u°µ¤F"¥Ò¤A¤þ"3¦¸´`Àô¡A©Ò¥H§A»¡ªº¤Ó¦hLoop¬O«ü3¦¸¤Ó¦h¶Ü¡H |
|