GBKEE

回復 1# jiuhtsair

1. Sub Ex()
   
2.     Dim k As Integer                    '宣告為數字型態
   
3.     [h1].Offset(1).Resize(3, 20) = ""   '[h1]的下一列位置: 擴充 3列20欄的位置
   
4.     For i = 2 To 4                      '第2列 - 第4列
   
5.         For j = 3 To 7                  '第3欄 - 第7欄
   
6.             k = Sheets(1).Cells(i, j)   'Sheets(1).Cells(i, j)的內容為字串型態
   
7.             'k 已宣告為數字: 將字串型態轉換為數字型態
   
8.             'Sheets(1).[h1].Cells(i, k) = k '[h1]的第 i 列,第 k 欄=k
   
9.             
   
10.             Sheets(1).[h1].Cells(i, k) = "'" & k '[h1]的第 i 列,第 k 欄=k
    
11.             ' "'" & k  數字轉換為文字
    
12.         Next j
    
13.    Next i
    
14. End Sub
    
15. Sub Ex1()
    
16.     Dim E As Range
    
17.     [h1].Offset(1).Resize(3, 20) = ""
    
18.     For Each E In [C2:G4]                       '             '依序在[C2:G4] 的每一儲存格
    
19.             Sheets(1).[h1].Cells(E.Row, E) = E        '=原本的文字型態
    
20.             'Cells(E.Row, E)   E.Row : 儲存格的列號 ,  E : 儲存格的內容( 內容如為字串  系統 自動轉換為數字 )
    
21.             'Sheets(1).[h1].Cells(E.Row, E) = E.Value '=數字型態
    
22.    Next
    
23. End Sub

複製代碼