- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 142
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2025-6-12
               
|
¦^´_ 1# q1a2z5 - Sub ex()
- Set ³Q¼¼Æ = [J4:M4]
- Set ¿¼Æ = [J5:M5]
- ActiveSheet.UsedRange.Offset(¿¼Æ.Row, 0).ClearContents '²M°£
- n = Val(Join(Application.Transpose(Application.Transpose(³Q¼¼Æ)), ""))
- m = Val(Join(Application.Transpose(Application.Transpose(¿¼Æ)), ""))
- k = ³Q¼¼Æ.Column + ³Q¼¼Æ.Count - 1: r = ¿¼Æ.Row + 1
- Do While IsNumeric(Cells(5, k)) And Cells(5, k) <> ""
- s = n * Cells(5, k)
- For i = Len(s) To 1 Step -1
- Cells(r, k - (Len(s) - i)) = Val(Mid(s, i, 1))
- Next
- r = r + 1
- k = k - 1
- Loop
- For i = Len(n * m) To 1 Step -1
- Cells(r, 13 - (Len(n * m) - i)) = Val(Mid(n * m, i, 1))
- Next
- End Sub
½Æ»s¥N½X |
|