- ©«¤l
- 549
- ¥DÃD
- 152
- ºëµØ
- 0
- ¿n¤À
- 691
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-8-10
- ³Ì«áµn¿ý
- 2022-9-7
|
¦^´_ 3# luhpro
luhpro ¤j±zªº·N«ä¬O»¡:ReDim ¥u¯à¼W´î³Ì«á¤@Ó¬W¼Ð,©Ò¥H¤Gºû°}¦C¥u¯à¼W´î²Ä¤Gºûªº³¡¤À,¤@ºû°}¦C«h¨S¦³³oÓ°ÝÃDÅo?
¨º§Ú쥻ªºµ{¦¡½X,°}¦CªºÈ»Pcellsè¦n¬O¤Ï¹L¨Óªº,n¦p¦óÂà¦^¨Ó?- rng = [A1].CurrentRegion
- For i = 1 To UBound(rng)
- If rng(i, 5) = s Then '²Å¦XªºÈ
- m = m + 1
- ReDim Preserve arr(1 To UBound(rng, 2),1 To m)
- For j = 1 To UBound(rng, 2)
- arr(j, m) = rng(i, j)
- Next
- End If
- Next
½Æ»s¥N½X With Sheets("sheet2").Cells(Num + 1, 2).Resize(UBound(arr) + 1, UBound(arr, 2) + 1)
§Ú¾Ç°_¨Ó¤F,·P®¦,¦]¬°¤p§Ì¤£¤ÓÀ´Resizeªº¥Îªk
With Sheets("«ü©w¬~")
.Paste '¶K¤W
End With
¥i¥Hª½±µ¥Î.cells(x,y)ªº¤è¦¡±µµÛ¶K¤Wªº¸Ü,¨º¤Ó¤è«K¤F,§Ú«Ý·|¸Õ¸Õ¬Ý |
|