- ©«¤l
- 4
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 10
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2012-7-26
- ³Ì«áµn¿ý
- 2014-2-11
|
dear ª©¤j,
¨þ~ª©¤jªGµM¥\¤O²`«p,¤pªº¬ã¨s¥b¤Ñ²×©ó¤F¸Ñì¨Ó r¬O¨Drngªº¦C¼Æ°Ú~
¦]¸ê®Æ¨Ó·½ªº¶µ¥Ø¦WºÙ"¨Mij";©Î"½æ»ù"ªºÄæ¦ì¨C¦¸¥i¯à³£·|ÅÜ,¥i¯à¬ONÄæ ©Î SÄæµ¥¤£©w..
¬ãŪ°Q½×°Ï¨ä¥L¸ê®Æ«á,¥ý¥Îfind¨Ó§ä"¨Mij",¦Aoffset§ä¥Ø¼Ð¸ê®ÆRange,
¦ý¦Û¤v¸Õªºµ²ªG¦³bug...¯u¤£ª¾¬Oþ¸Ì¿ù¤F >///<
¦A½Ð«ü±Ð,·P¿E¤£ºÉ~
Sub TEST2()
Windows("12072602_Sample.xls").Activate
Dim A As Range, B As Range, C As Range, r&
With Sheet1
Set A = .Range("B9:D9", .Range("B9:D9").End(xlDown))
r = A.Rows.Count
Set B = .Range("5:5").Find("¨Mij", LookAt:=xlPart).Offset(4, 0).Resize(r, 3)
Set C = Sheet2.[B65536].End(xlUp)
C.Offset(1).Resize(r, 3) = A.Value
C.Offset(1, 3).Rezize(r, 3) = B.Value
End With
End Sub
12072602_Sample.rar (51.57 KB)
|
|