- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
·PÁ GBKEE ª©¤jªº«ü¥¿, ¤è¯à§¹¦¨- '¨CÓ[§Ç¸¹]¦b¾ãÓWorkBookªº²Ä3¶¥H«á, ¬O§_§¡¥u¥X²{¤@¦¸?¤£·|«ÂÐ?
- '³oÓVBA Code¬O¥H¤£«ÂЬ°·Ç¦Ó¼g
- Sub §Ö³t§Ç¸¹¬d¸ß()
- Dim D As Object, Sh As Worksheet, fRng As Range, sRng As Range
- Dim I As Integer, J As Integer, sNum As String, FstAddr As String
- Set Sh = Sheets("¥X³f¿é¤J")
- For I = 5 To Sh.[B5].End(xlDown).Row
- sNum = Sh.Cells(I, 2)
- For J = 3 To Sheets.Count
- Sheets(J).Activate
- Set sRng = Sheets(J).Range("B3", "B" & [B2].End(xlDown).Row) '³]©w³Q·j´MªºRange
- sRng.Select
- ' On Error Resume Next
- Set fRng = sRng.Find(sNum, lookat:=xlWhole) '¦bSheets(J)ªºsRng¤¤´M§ä §Ç¸¹
- If Not fRng Is Nothing Then '¦³§ä¨ì
- Sh.Cells(I, 1) = fRng.Offset(0, -1) '«þ¨©¬ÛÃö¸ê®Æ
- Sh.Cells(I, 3) = fRng.Offset(0, 1)
- fRng.Offset(0, 3).Select
- fRng.Offset(0, 3).Resize(1, 4).Copy Sh.Cells(I, 4)
- '§Aµ¹ªº¹Ï»P´ú¸ÕÀɦ³¥X¤J, ¹Ï¦³[¥X³f/É¥X¤é´Á],¦Ó´ú¸ÕÀɪº[¥X³f/É¥X¤é´Á]¬OªÅªº?
- GoTo Next1 '«þ¨©§¹´«¤U¤@ӧǸ¹
- End If
- Next
- Next1:
- Next
- Sh.Activate
- End Sub
½Æ»s¥N½X
|
|