ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦U¦ì¤j¤jexcel vba¯à±N¦h­Ó¤u§@ªí¦X¨Ö­Ó¹ïÀ³¤º®e¡H

¦U¦ì¤j¤jexcel vba¯à±N¦h­Ó¤u§@ªí¦X¨Ö­Ó¹ïÀ³¤º®e¡H

±N²Ä¤@­Ó¤u§@ªí¬°Á`ªí¡A·Q­n°õ¦ævba±N¨ä¥L¤u§@ªí¸ê®Æ½Æ»s¨ìÁ`ªí



¥Î³Ì²³æªº
Set sht1=worksheets(¡§Sheet1¡¨)
Set sht2=Worksheets(¡§Sheet2¡¨)
Set sht3=worksheets(¡§Sheet3¡¨)
Set sht4=worksheets(¡§Sheet4¡¨)

sht2.range(¡§D7:G7¡¨).copy  ¡¥¿ï¨úªº½d³ò
sht1.range(¡§d2¡¨).pastespecial  paste:=xlpastevalues ¡¥­n¶K¤Wªº²Ä¤@®æ

sht3.range(¡§¡¨).copy ¡¥¬Ý¤£¥X¨Ó§A­n½Æ»sªº¹ê»Ú½d³ò
sht1. Range (¡§d9¡¨).pastespecial Paste:=xlpastevalues

sht4.range(¡§¡¨).copy
sht1.range(¡§¡¨).pastespecial paste:=xlpastevalues

À³¸Ó´N¦n¤F
¤£µM¿ý»s­Ó¥¨¶°¤]¥i¥H
²öÅý¥L¤H¿ù»~¶Ë®`¦Û¤v

TOP

¦^´_ 1# wsx1130

Sub EX()
Dim Arr As Range
Set Arr = Sheets(1).[b1].CurrentRegion
For Each a In Array(2, 3, 4)
   With Sheets(a)
      For Each b In .Range(.[c2], .[c2].End(4))
         For x = 2 To Arr.Rows.Count
            If b = Arr(x, 3) And b.Offset(, 1) <> "" Then
               Arr(x, 4).Resize(, 4) = b.Offset(, 1).Resize(, 4).Value
               GoTo 100
            End If
         Next
100:
      Next
   End With
Next
End Sub

TOP

¦^´_ 3# jcchiang

¦n¼F®`ªº¼gªk
²öÅý¥L¤H¿ù»~¶Ë®`¦Û¤v

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD