samwang

¦^´_ 1# keny1021

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
Dim Arr, Brr(), T$, i&, j%
T = Sheets(2).Range("e4")
Arr = Sheets(1).Range("a1").CurrentRegion
ReDim Brr(1 To UBound(Arr), 1 To 11)
For i = 2 To UBound(Arr)
    If Arr(i, 1) = T Then
        n = n + 1: For j = 2 To 7: Brr(n, j - 1) = Arr(i, j): Next
        For j = 8 To 11
        Brr(n, j) = Application.RandBetween(Brr(n, 6) * 100, Brr(n, 5) * 100) * 0.01
        Next
    End If
Next
If n > 0 Then
    With Sheets(2)
        .[b6].CurrentRegion.Offset(1) = ""
        .[b7].Resize(n, 11) = Brr
    End With
End If
End Sub

samwang

¦^´_  samwang

Samwang ¤j¤j ·PÁ±z:

¥i¥H¦A³Â·Ð±z¡A·í§Ú®æ¦¡µy§@½Õ¾ã«á¡Aµo²{A55Àx¦s®æ­Y¦³«Ø¥ß­È ...
keny1021 µoªí©ó 2022-8-4 16:12

¦]¬°§A­ì¨Óªº¤£³sÄò¡A©Ò¥H±q²Ä6¦C©¹¤U1¦C«á²M°£.[b6].CurrentRegion.Offset(1) = ""
²{¦b¬O³sÄò¸ê®Æ©Ò¥H§ï¬°±q²Ä1¦C©¹¤U6¥H«á²M°£
.[b1].CurrentRegion.Offset(6) = ""

samwang

¦^´_  samwang

Samwang ¤j¤j ±z¦n:´ú¸Õµ²ªGOK¡C·PÁ«üÂI

¤U¦C»yªk¬O¤§«e®M¥Î¦b¨ç¼Æªº°}¦C¶]§å¦¸°j°é ...
keny1021 µoªí©ó 2022-8-5 10:57

¤£¦n·N«ä¡A¤£¤Ó¤F¸Ñ»Ý¨D¡A²{¦bµ{¦¡½X¤£¬O¥i¥H²£¥X¤F¶Ü? ½Ð¦A¸Ô²Ó»¡©ú¤@¤U¡AÁÂÁÂ

samwang

¦^´_  samwang

Samwang ¤j¤j ±z¦n:
¥D­n§Ú¥[¤J¤§«eªº»yªk®M¥Î«á¡A°õ¦æ«á·|²£¥ÍªÅ¦æ¡A¦p¤U­±¹Ï¤@©Ò¥Ü:
...
keny1021 µoªí©ó 2022-8-5 15:49

½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
If n > 0 Then
    With Sheets(2)
        .[b1].CurrentRegion.Offset(6) = "" '±q²Ä¤@¦C©¹¤U¦Ü²Ä6¦C«á¶}©l§R°£
        .[b7].Resize(n, 11) = Brr
    End With
    n = 0
End If
sh2.PrintOut
Next