5¿ï2±Æ¦C²Õ¦X

eric7765

½Ð±Ð¤j¤j ­n¦p¦ó¹Ï¤ù§â A1-A5 ±Æ¦C ¦p¶À¦â°Ï°ì³o¼Ë ¤@ª½±Æ¨ìÄæ¦ì¨S¦³¸ê®Æ¬°¤î ³Â·Ð¤F

¤U¸ü (34.07 KB)

2021-3-10 05:47

jcchiang

¦^´_ 1# eric7765

¸ê®ÆÂ\©ñ¦ì¸m½Ð¦Û¦æ½Õ¾ã
Sub ex()
Dim a As Object, X%, Y%
Y = 1
For Each a In Range([a1], [a1].End(4))
   For X = a.Row + 1 To [a1].End(4).Row
      Cells(Y, 3) = "[" & Format(Cells(a.Row, 1), "0#") & "." & Format(Cells(X, 1), "0#") & "]"  '¸ê®Æ©ñ¸m©óÄæ¦ì(C)
      Y = Y + 1
   Next
Next
End Sub

eric7765

¦^´_ 2# jcchiang

eric7765

¦^´_ 3# eric7765
ÁÂÁ§A ¥Ø«e ¥i¥H¨Ï¥Î  ½Ð°Ý§Ú¥Ø«e§â¶]¥X¨Óªº©ñ¦b A7-A16 §Ú­n¦p¦ó §â§Ú©Ò¦³ªº¸ê®Æ±Æ¦C¥X¨Ó ¥Ø«e ¥u¯à¶] AÄ檺¼Æ¾Ú §Ú·Q­n¤@ª½¶]¨ì Äæ¦ì¨S¦³¸ê®Æ¬°¤î

dou10801

¦^´_ 2# jcchiang ½Ð±Ð«e½ú,¦pªG5¿ï3,«ç»ò³B²z,ÁÂÁÂ.

jcchiang

¦^´_ 5# dou10801
5¿ï2
Sub ex1()
Dim a As Object, b As Object, X%, Y%
Range([a7], [a7].End(4)).Clear
Y = 7
For Each a In [a1].CurrentRegion.Columns
   For Each b In a.Rows
      For X = b.Row + 1 To Cells(1, b.Column).End(4).Row
         Cells(Y, 1) = "[" & Format(Cells(b.Row, b.Column), "0#") & "." & Format(Cells(X, b.Column), "0#") & "]"
         Y = Y + 1
      Next
   Next
Next
End Sub

5¿ï3
Sub ex2()
Dim a As Object, b As Object, X%, Y%
Range([a7], [a7].End(4)).Clear
Y = 7
For Each a In [a1].CurrentRegion.Columns
   For Each b In a.Rows
      For X = b.Row + 1 To Cells(1, b.Column).End(4).Row
         If X + 1 <= Cells(1, b.Column).End(4).Row Then
            Cells(Y, 1) = "[" & Format(Cells(b.Row, b.Column), "0#") & "." & Format(Cells(X, b.Column), "0#") & "." & Format(Cells(X + 1, b.Column), "0#") & "]"
            Y = Y + 1
         End If
      Next
   Next
Next
End Sub

eric7765

¦^´_ 6# jcchiang
J¤j «D±`·PÁ§AªºÀ°¦£ ¥Ø«e³Ñ¤U¤@ÂI¤p°ÝÃD §Ú·Q­n§â A1-A5ªº¼Æ¾Ú ±Æ¦bA7-A16 B1-B5 ±Æ¦b B7-B16 ¥Ø«e³o­Óµ{¦¡½X ·|§â©Ò¦³ªº¼Æ¾Ú ¤@ª½¦bAÄæ±Æ¦C §Ú·Q­n§e²{ ¼Æ¾Ú¦b­þ¤@Äæ ´N±Æ¦b¨ºÄ檺¤U­± ¦pªG¤è«Kªº¸Ü ¦A³Â·Ð¤F

jcchiang

¦^´_ 7# eric7765

5¿ï2
Sub ex1()
Dim a As Object, b As Object, X%, Y%
[a7].CurrentRegion.ClearContents
Y = 7
For Each a In [a1].CurrentRegion.Columns
   For Each b In a.Rows
      For X = b.Row + 1 To Cells(1, b.Column).End(4).Row
         Cells(Y, b.Column) = "[" & Format(Cells(b.Row, b.Column), "0#") & "." & Format(Cells(X, b.Column), "0#") & "]"
         Y = Y + 1
      Next
   Next
   Y = 7
Next
End Sub

5¿ï3
Sub ex2()
Dim a As Object, b As Object, X%, Y%
[a7].CurrentRegion.ClearContents
Y = 7
For Each a In [a1].CurrentRegion.Columns
   For Each b In a.Rows
      For X = b.Row + 1 To Cells(1, b.Column).End(4).Row
         If X + 1 <= Cells(1, b.Column).End(4).Row Then
            Cells(Y, b.Column) = "[" & Format(Cells(b.Row, b.Column), "0#") & "." & Format(Cells(X, b.Column), "0#") & "." & Format(Cells(X + 1, b.Column), "0#") & "]"
            Y = Y + 1
         End If
      Next
   Next
   Y = 7
Next
End Sub

dou10801

¦^´_ 6# jcchiang ·PÁÂjcchiang¤j¤j,¦¬¤UºCºC¾Ç²ß.