wayne0303

¦^´_ 2# samwang


samwang¤j¡I

§Ú®³¤F§A¤§«eªºÀɮרӸաA§Ú²¾°Ê¤F¨Ó·½¸ê®Æªº¦ì¸m°õ¦æ·|¥X²{

1.°õ¦æ¶¥¬q¿ù»~9
   °}¦C¯Á¤Þ¶W¥X½d³ò

¸ò

2.°õ¦æ¶¥¬q¿ù»~13
    «¬ºA¤£²Å

³o¬O¸Ó§ï­þÃä¡H


ÁÂÁÂ

samwang

¦^´_ 21# wayne0303


    §Ú®³¤F§A¤§«eªºÀɮרӸաA§Ú²¾°Ê¤F¨Ó·½¸ê®Æªº¦ì¸m°õ¦æ·|¥X²{
>>¥i§_ªþ¤WÀɮסAÁÂÁÂ

wayne0303

¦^´_ 22# samwang


¦A³Â·Ð§A¦³ªÅ¦A¬Ý¬Ý~

ÁÂÁÂ

samwang

¦^´_ 23# wayne0303


§ó§ï¦p¤U¡AÁÂÁÂ
Arr = Range([u3], [u65536].End(3))

wayne0303

¦^´_ 24# samwang


¥i¥H¤F¡AÁÂÁÂsamwang¤jªº«ü¾É¡I

wayne0303

¦^´_ 24# samwang   



samwang¤j~¤£¦n·N«ä¤S­n³Â·Ð§A¤@¤U

·j´M¸ê®Æ¤U¤è¦³¤¤¤å¦rªº¸Ü·|¤zÂZ...

samwang

¦^´_ 26# wayne0303

Arr = Range([a11], [a65536].End(3)), ­×§ï¦p¤U¬õ¦r
Arr = Range([a11], [a11].End(4))

End(3) = End(xlUp)
End(4) = End(xlDown)

wayne0303

¦^´_ 27# samwang


ÁÂÁÂsamwang¤j~

Andy2483

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ß¦r¦ê¤Ï¦V»P°}¦C,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð
°õ¦æ«e:

¤U¸ü (72 KB)

2023-12-1 11:27

°õ¦æµ²ªG:

¤U¸ü (74.22 KB)

2023-12-1 11:27

Option Explicit
Sub TEST()
Dim Brr, S, i&, V1, Ve
'¡ô«Å§iÅܼÆ
Brr = Range([B1], [B65536].End(xlUp))
'¡ô¥OBrrÅܼƬO ¥H«ü©wªºÀx¦s®æ½d³ò­Èªº¤Gºû°}¦C
For i = 2 To UBound(Brr)
'¡ô³]¶¶°j°é!i±q2¨ìBrr°}¦CÁa¦V³Ì¤j¯Á¤Þ¦C¸¹
   S = Split(Trim(Brr(i, 1)) & "-", "-")
   '¡ô¥OSÅܼƬO¤À³Î¦r¦êªº¤@ºû°}¦C
   V1 = Val(StrReverse(Mid(Val("1" & StrReverse(S(0))), 2)))
   '¡ô¥OV1ÅܼƬO±N0¯Á¤Þ¸¹°}¦C­È¦r¦ê¤ÏÂà«á,¦b«e¤è³s±µ¦r¦ê"1"¦¨¬°·s¦r¦ê,
   '¦A¦¹·s¦r¦êÂର¼Æ­È,¨ú²Ä2¦r¤§«áªº¦r,±µµÛ±N¦¹¦r¦ê¤ÏÂà¦^¨Ó,³Ì«áÂର¼Æ­È
   Ve = Val(S(UBound(S) - 1))
   '¡ô¥OVeÅܼƬO­Ë¼Æ²Ä2­Ó°}¦C­ÈÂର¼Æ­È
   If V1 > 390 Or UBound(S) - 1 = 0 Then Brr(i - 1, 1) = "": GoTo i01
   '¡ô¦pªGÂŦâ°Ï°ì¼Æ­È¤j©ó390 ©Î Brr(i, 1)¦r¦ê¸Ì¨S¦³"-",
   '´N¥O°}¦C©ñµ²ªGªº°}¦C­È²M°£,¸õ¨ì¼Ð¥Üªº¦ì¸mÄ~Äò°õ¦æ
   Brr(i - 1, 1) = Switch((Ve <= 180) * (Ve > 90), 2, Ve <= 90, 1)
   '¡ô¥O°}¦C©ñµ²ªGªº°}¦C­È¼g¤J¥¿½T­È
i01: Next
[D2].Resize(UBound(Brr) - 1) = Brr
'¡ô¥O[D2]Àx¦s®æÂX®i©Ò»Ý½d³òÀx¦s®æ­È¥H Brr°}¦C­È±a¤J
End Sub