- ©«¤l
- 36
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 93
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2018-2-27
- ³Ì«áµn¿ý
- 2022-2-25
|
¥»©«³Ì«á¥Ñ ÅÚ½³ªd ©ó 2021-1-26 16:33 ½s¿è
¦^´_ 2# °a¤ªºµ
¬Oªº¡AÁÂÁÂ
¤£¦n·N«ä¡A³o³¡¤À§Ú¤£À´¬O·N«ä¡A¥i¥H¸ò±z½Ð±Ð¶Ü¡H
A = Arr(x, 1) & "|" & Arr(x, 2) & "|" & Brr(3, 1) & "|" & Brr(3, 2) & "|" & Brr(3, 3) & "|" & Sheets(2).Cells(3, 4)
A = Split(A, "|")
For Y = 1 To 6
Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2) = A(Y - 1)
Public Sub ¯S¥ð²Îp½m²ß()
Application.ScreenUpdating = False
Arr = [¯S¥ð¤Ñ¼Æ!A1].CurrentRegion
Brr = [µn¿ý!A1].CurrentRegion
For x = 2 To UBound(Arr)
If Brr(1, 2) = Arr(x, 1) And _
Brr(3, 2) >= Arr(x, 4) And _
Brr(3, 2) <= Arr(x, 5) Then
Sheets(2).Cells(3, 4) = Arr(x, 8)
Sheets(1).Cells(x, 9) = _
Sheets(1).Cells(x, 9) + Brr(3, 3)
A = Arr(x, 1) & "|" & Arr(x, 2) & "|" & _
Brr(3, 1) & "|" & Brr(3, 2) & "|" & _
Brr(3, 3) & "|" & Sheets(2).Cells(3, 4)
A = Split(A, "|")
For Y = 1 To 6
Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2) = A(Y - 1)
Next Y
Exit For
End If
Next x
Application.ScreenUpdating = True
End Sub |
|