Andy2483

¦^´_ 1# 198188

ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
«á¾ÇÂǦ¹©«½m²ß°}¦C»P¦r¨å,¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò

Option Explicit
Sub TEST()
Dim Arr, Brr, Crr, Z, i&, j%, R&, s%, T$, T2$, T3$
Set Z = CreateObject("Scripting.Dictionary")
Brr = Range(Sheets(1).[H12], Sheets(1).[A65536].End(3))
ReDim Crr(1 To UBound(Brr), 1 To 2)
For i = 1 To UBound(Brr)
   T3 = Trim(Brr(i, 3))
   If T3 = "" Then GoTo i01
   For j = 4 To 8
      T = T & "/" & Val(Brr(i, j))
   Next
   Z(T3 & T) = i
   T = ""
   Crr(i, 1) = "N"
i01: Next
For s = 2 To Sheets.Count
   Arr = Range(Sheets(s).[G13], Sheets(s).[A65536].End(3))
   For i = 1 To UBound(Arr)
      T2 = Trim(Arr(i, 2))
      If T2 = "" Then GoTo i02
      For j = 3 To 7
         T = T & "/" & Val(Arr(i, j))
      Next
      R = Z(T2 & T)
      If R <> 0 Then Crr(R, 1) = "Y": Crr(R, 2) = Sheets(s).Name & "/ " & i + 12 & "¦C"
      T = ""
i02: Next
Next
Sheets(1).[I12].Resize(UBound(Crr), 2) = Crr
End Sub

Andy2483

¦^´_ 4# 198188


    ÃD·N¬Ý°_¨Ó¬O5Äæ¥þ¦P¤~¼Ð"Y",
½d¨ÒºÉ¶q¬O¦³¤â°Ê³B²z¦n·Q­nªºµ²ªGªþ¦b½d¨Ò¸Ì

Andy2483

¦^´_ 6# 198188


    AM-JO58-01-1, AM-JO58-01-2, AM-JO58-02
³o´X­ÓªíªºEÄæ¬OÁôÂð_¨Óªº,§Aªº¤â°Ê¤ñ¹ï¦³»~

¤U¸ü (64.42 KB)

2024-2-26 14:59

Andy2483

¦^´_ 9# mdr0465

ÁÂÁ½׾Â,ÁÂÁ«e½ú¤@°_¾Ç²ß
½Ð¸Õ°õ¦æ¥H¤U¥N½X:

¤U¸ü (85.67 KB)

2024-3-6 08:04

Option Explicit
Sub Àx¦s®æ»P°}¦C() 'ª`·N! ¥ý¶}¤@­Ó·s¤u§@ªí¦A°õ¦æ,¥H§K»~§R­«­n¸ê®Æ
Dim Arr(1 To 3, 1 To 5), Brr, Crr, Drr, i%, j%, A, N%
ActiveSheet.UsedRange.ClearContents
For i = 1 To UBound(Arr)
   For j = 1 To UBound(Arr, 2)
      N = N + 1
      Arr(i, j) = N
   Next
Next
[A1].Resize(UBound(Arr), UBound(Arr, 2)) = Arr
[A1].Resize(UBound(Arr), UBound(Arr, 2)).Select
MsgBox "¥þ³¡Arr°}¦C­È±qÀx¦s®æ[A1]¶}©l¶K¤J­È"

[A6].Resize(1, UBound(Arr, 2)) = Arr
[A6].Resize(1, UBound(Arr, 2)).Select
MsgBox "²Ä1¦CArr°}¦C­È±qÀx¦s®æ[A6]¶}©l¶K¤J­È"

[A8].Resize(UBound(Arr), 1) = Arr
[A8].Resize(UBound(Arr), 1).Select
MsgBox "²Ä1ÄæArr°}¦C­È±qÀx¦s®æ[A8]¶}©l¶K¤J­È"

[A12].Resize(2, 2) = Arr
[A12].Resize(2, 2).Select
MsgBox "³Ì¥ª¤W¨¤2Äæ2¦CArr°}¦C­È±qÀx¦s®æ[A12]¶}©l¶K¤J­È"

[A15].Resize(4, 6) = Arr
[A15].Resize(4, 6).Select
MsgBox "Arr°}¦C­È¤ñ©Ò«ü©wÀx¦s®æ½d³ò¤p±¡ªp,±qÀx¦s®æ[A15]¶}©l¶K¤J­È¶W¥X³¡¤À·|¥X²{¿ù»~­È"
End Sub

Andy2483

¦^´_ 9# mdr0465

¶i¤@¨B¹B¥Î,½Ð¸Õ°õ¦æ¥H¤U¥N½X:

¤U¸ü (58.59 KB)

2024-3-6 08:27

Option Explicit
Sub Àx¦s®æ»P°}¦C_1() 'ª`·N! ¥ý¶}¤@­Ó·s¤u§@ªí¦A°õ¦æ,¥H§K»~§R­«­n¸ê®Æ
Dim Arr(1 To 3, 1 To 5), Brr, Crr, Drr, i%, j%, A, N%
ActiveSheet.UsedRange.ClearContents
For i = 1 To UBound(Arr)
   For j = 1 To UBound(Arr, 2)
      N = N + 1
      Arr(i, j) = N
   Next
Next
[A1].Resize(UBound(Arr), UBound(Arr, 2)) = Arr
[A1].Resize(UBound(Arr), UBound(Arr, 2)).Select
MsgBox "¥þ³¡Arr°}¦C­È±qÀx¦s®æ[A1]¶}©l¶K¤J­È"

Brr = Range([F1], [A65536].End(xlUp))
For i = 1 To UBound(Brr)
   For j = 2 To UBound(Brr, 2)
      Brr(i, 1) = Brr(i, 1) + Brr(i, j)
   Next
Next
[A6].Resize(UBound(Brr)) = Brr
[A6].Resize(UBound(Brr)).Select
MsgBox "¦bBrr°}¦C²Ä1Äæ¸Ì¥[Á`·í¦C­È«á,±qÀx¦s®æ[A6]¶}©l¶K¤JBrr³¡¤À°}¦C­È" & vbLf & _
       "1+2+3+4+5=15" & vbLf & "6+7+8+9+10=40" & vbLf & "11+12+13+14+15=65"
End Sub

Andy2483

¦^´_ 12# mdr0465

¯Á¤Þ¸¹±q 0¶}©l:

¤U¸ü (55.07 KB)

2024-3-6 13:53

Option Explicit
Sub Àx¦s®æ»P°}¦C_2() 'ª`·N! ¥ý¶}¤@­Ó·s¤u§@ªí¦A°õ¦æ,¥H§K»~§R­«­n¸ê®Æ
Dim Arr(3, 5), i%, j%, N%
ActiveSheet.UsedRange.ClearContents
For i = 1 To UBound(Arr)
   Arr(i, 0) = "¼ÐÃDÄ涵 " & i
   For j = 1 To UBound(Arr, 2)
      If i = 1 Then Arr(0, j) = "¼ÐÃD¦C¶µ " & j
      N = N + 1
      Arr(i, j) = N
   Next
Next
Arr(0, 0) = "Äæ \ ¦C"
[A1].Resize(UBound(Arr) + 1, UBound(Arr, 2) + 1) = Arr
[A1].Resize(UBound(Arr) + 1, UBound(Arr, 2) + 1).Select
MsgBox "¥þ³¡Arr°}¦C­È±qÀx¦s®æ[A1]¶}©l¶K¤J­È"
End Sub

Andy2483

¦^´_ 14# mdr0465

¦b¤°»ò®É¶¡¤~·|¨M©w¨Ï¥Î"Scripting Dictionary" (¦r¨å)
1.³B²z­«½Æ.¤£­«½Æ¸ê®Æ
2.ÅÜ°ÊÅܼƤӦh®É,¥H¦r¨åKEY·íÅܼÆ
3.°O¾Ð¦C¸¹®É
4.¬°¤F½m²ß¦r¨å®É,¥ô¦ó±¡ªp³£·Q­n¥Î¦r¨å
5.¨ä¥L