Hsieh

回復 1# q1a2z5

1. Sub ex()
   
2. Set 被乘數 = [J4:M4]
   
3. Set 倍數 = [J5:M5]
   
4. ActiveSheet.UsedRange.Offset(倍數.Row, 0).ClearContents '清除
   
5. n = Val(Join(Application.Transpose(Application.Transpose(被乘數)), ""))
   
6. m = Val(Join(Application.Transpose(Application.Transpose(倍數)), ""))
   
7. k = 被乘數.Column + 被乘數.Count - 1: r = 倍數.Row + 1
   
8. Do While IsNumeric(Cells(5, k)) And Cells(5, k) <> ""
   
9. s = n * Cells(5, k)
   
10.    For i = Len(s) To 1 Step -1
    
11.       Cells(r, k - (Len(s) - i)) = Val(Mid(s, i, 1))
    
12.    Next
    
13.    r = r + 1
    
14.    k = k - 1
    
15. Loop
    
16. For i = Len(n * m) To 1 Step -1
    
17.       Cells(r, 13 - (Len(n * m) - i)) = Val(Mid(n * m, i, 1))
    
18. Next
    
19. End Sub

複製代碼