- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 14
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2016
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2017-2-22
- ³Ì«áµn¿ý
- 2019-6-1
|
¥»©«³Ì«á¥Ñ lusyfatw ©ó 2018-11-5 01:24 ½s¿è
¦^´_ 2# faye59
¤p§Ì¥u·|¥Ö¤ò¡A§Q¥Î¤@Ó¤@Ó¤ñ¹ï¡AÁٽкô¥S½ç±Ð¡AÁÂÁ±z¡C
t1.zip (72.29 KB)
Sub test()
Dim a, b, c, d, e, f, g
Set s1 = Worksheets("spc")
Set d1 = Worksheets("DATA")
Set d2 = Worksheets("OEM-7IMP-2Y-01")
a = s1.Range("B2")
b = s1.Range("C2")
c = s1.Range("D2")
d = s1.Range("E2")
e = s1.Range("F2")
f = s1.Range("G2")
g = s1.Range("H2")
For i = 2 To 150
If (d1.Range("N" & i) <= a) * (d1.Range("O" & i) <= b) * (d1.Range("P" & i) <= c) * (d1.Range("Q" & i) <= d) * (d1.Range("R" & i) <= e) * (d1.Range("S" & i) <= f) * (d1.Range("T" & i) <= g) Then
d1.Range("b" & i & ":Z" & i).Copy
Worksheets("OEM-7IMP-2Y-01").Activate
d2.Range("B1048576").Select
Selection.End(xlUp).Select
d2.Range("b" & ActiveCell.Row + 1).PasteSpecial Paste:=xlPasteValues
End If
Next
End Sub |
|