¦U¦ì¤j¤jexcel vba¯à±N¦hÓ¤u§@ªí¦X¨ÖÓ¹ïÀ³¤º®e¡H
- ©«¤l
- 49
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 107
- ÂI¦W
- 0
- §@·~¨t²Î
- win 10
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2017-7-15
- ³Ì«áµn¿ý
- 2023-6-12
|
¦U¦ì¤j¤jexcel vba¯à±N¦hÓ¤u§@ªí¦X¨ÖÓ¹ïÀ³¤º®e¡H
±N²Ä¤@Ó¤u§@ªí¬°Á`ªí¡A·Qn°õ¦ævba±N¨ä¥L¤u§@ªí¸ê®Æ½Æ»s¨ìÁ`ªí
|
|
|
|
|
|
|
- ©«¤l
- 31
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows10
- ³nÅ骩¥»
- Office365
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2020-6-14
- ³Ì«áµn¿ý
- 2024-8-19
|
¥Î³Ì²³æªº
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¨Ó§An½Æ»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
|
|
|
|
|
- ©«¤l
- 234
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 276
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-7
- ³Ì«áµn¿ý
- 2021-10-7
|
¦^´_ 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 |
|
|
|
|
|
|
- ©«¤l
- 31
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows10
- ³nÅ骩¥»
- Office365
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2020-6-14
- ³Ì«áµn¿ý
- 2024-8-19
|
¦^´_ 3# jcchiang
¦n¼F®`ªº¼gªk |
|
²öÅý¥L¤H¿ù»~¶Ë®`¦Û¤v
|
|
|
|
|