呵呵，把數組法改一改，速度又大大提高。

Sub CutPaste()                         ‘把多行的數據轉換成一行，注意，這里可不是“轉置”,這個(gè)采用數組法
    Application.ScreenUpdating = False
    t = Timer
    Dim rng As Range, I%, K%, iCol%, L%, Arr() As String
   
    Set rng = Selection
    I = rng.Row
    iCol = rng.Column
    K = rng.Rows.Count - 1
    ReDim Arr(K * 3 + 2)
   
    For L = 0 To K
        For w = 0 To 2
            Arr(L * 3 + w) = rng(L + 1, w + 1)
        Next
    Next
   
    Range(Cells(I, iCol + 4), Cells(I, K * 3 + iCol + 6)) = Arr
    Application.ScreenUpdating = True
    MsgBox Timer - t
End Sub

Sub test()
    Dim i As String
    i = [b3]
    [f3] = i
End Sub

當在 B3 單元格中輸入一個(gè)文本數字，例如  21.10

或者設置好文本格式，在輸入數字?？傊?，一定要把B列的格式設置為“文本”

然后運行該程序，F3 單元格得到的是“數值”型的數字，顯示為 21.1

注意：已經(jīng)把 變量 i 定義為 “字符串”數據類(lèi)型，還是這樣。但是如果把程序改成：

Sub test2()
    ‘Dim i As String
    
    [g3] = [b3]
End Sub

直接把B2 的值賦給單元格 G3，卻又能成為 文本型 數字。

大家知道是什么原因嗎？

查找一個(gè)字符串是否都是字母并且最后一個(gè)字符是否是“E

Sub T()
    Dim UseInput    As String
    Dim myReg       As Object
   
    UseInput = VBA.LCase(InputBox("輸入的字符必須都是字母并且最后一個(gè)字符是“e”或者“E”", "請輸入字符"))
    ‘或者是使用忽略大小寫(xiě)參數為真,可去除VBA.Lcase()       myReg.IgnoreCase = True
    Set myReg = CreateObject("Vbscript.RegExp")
    myReg.Global = True
    myReg.Pattern = "^[a-z]*e$"
   
    If myReg.Test(UseInput) Then
        MsgBox "你輸入的字符符合要求"
    Else
        MsgBox "輸入的字符必須都是字母并且最后一個(gè)字符是“e”或者“E”"
    End If
   
    Set myReg = Nothing
   
End Sub

這個(gè)函數我用的比較頻繁，寫(xiě)詳細說(shuō)明有點(diǎn)困難，一些應用中的體會(huì )直接插在原版幫助中
                   
StrConv 函數
                    
    
                   
返回按指定類(lèi)型轉換的 Variant (String)。
                   
語(yǔ)法
                   
StrConv(string, conversion, LCID)
                   
StrConv 函數的語(yǔ)法有下面的命名參數:
                   
部分 說(shuō)明
string  必要參數。要轉換的字符串表達式。
Conversion 必要參數?Integer?其值的和決定轉換的類(lèi)型?
LCID    可選的。如果與系統LocaleID不同，則為L(cháng)ocaleID（系統LocaleID為缺省值。）
                   
設置值
                   
Conversion 參數的設置值為:
                   
常數    值  說(shuō)明
vbUpperCase 1   將字符串文字轉成大寫(xiě)。
                   
        s = StrConv("AbCdef", 1) ‘s="ABCDEF"

                    
                   
vbLowerCase 2   將字符串文字轉成小寫(xiě)。
                   
        s = StrConv("AbCdef", 2) ‘s="abcdef"

vbProperCase    3   將字符串中每個(gè)字的開(kāi)頭字母轉成大寫(xiě)。
                   
        s = StrConv("ni hao", 3) ‘s="Ni Hao"
                   
        每個(gè)字的開(kāi)頭= 前面有空格，與是不是單詞無(wú)關(guān)
                   
        s = StrConv("nihao", 3) ‘s="Nihao"

vbWide* 4*  將字符串中單字節字符轉成雙字節字符。
                   
        s = StrConv("Ab123你好", 4) ‘s="Ａｂ１２３你好" 
        瘦子變胖子，對中文無(wú)效

vbNarrow*   8*  將字符串中雙字節字符轉成單字節字符。
                   
        s = StrConv("Ａｂ１２３你好", 8) ‘s="Ab123你好"                    
        胖子變減肥，對中文無(wú)效

vbKatakana**    16**    將字符串中平假名字符轉成片假名字符。
                   
        小鬼子用的
                   
vbHiragana**    32**        將字符串中片假名字符轉成平假名字符。
                   
            小鬼子用的

               
對于 64  128 的理解不一定正確，但在處理程序間的數據交換時(shí)是很有用的，比如用open 語(yǔ)句打開(kāi)文本文件。說(shuō)的比較籠統，只有在接觸后才容易體會(huì )。
                   
                   
                   
                   
*應用到遠東國別。
                   
**僅應用到日本。
                   
注意 這些常數是由 VBA 指定的?？梢栽诔绦蛑惺褂盟鼈儊?lái)替換真正的值。其中大部分是可以組合的，例如 vbUpperCase + vbWide，互斥的常數不能組合，例如 vbUnicode + vbFromUnicode。當在不適用的國別使用常數 vbWide、vbNarrow、vbKatakana，和 vbHiragana 時(shí)，就會(huì )導致運行時(shí)錯誤。
                   
下面是一些一般情況下的有效分界符：Null (Chr$(0))，水平制表符 (Chr$(9))，換行 (Chr$(10))，垂直制表符 (Chr$(11))，換頁(yè) (Chr$(12)) ，回車(chē) (Chr$(13))，空白 (SBCS) (Chr$(32))。在 DBCS中，空白的實(shí)際值會(huì )隨國家/地區而不同。
                   
說(shuō)明
                   
在把 ANSI 格式的 Byte 數組轉換為字符串時(shí)，您應該使用 StrConv 函數。當您轉換 Unicode 格式的這種數組時(shí)，使用賦值語(yǔ)句。
                   
                   
                   
Unicode
                   
國際標準化組織 (ISO) 字符標準。Unicode 使用 16 位 (2 字節) 編碼方案，允許 65,536 個(gè)不同的字符空間。Unicode 包含標點(diǎn)符號、數學(xué)符號、修飾符號等的表示。

Like 作用于漢字查找的表示方法

For j = 1 To Len(.Cells(i, 4))
        If Mid(.Cells(i, 4), j, 1) Like "[含,肉,松,水,果,奶,油,芝,麻]" Then k = k & Mid(.Cells(i, 4), j, 1)
Next

Like 用于窗體的模糊查詢(xún)表示方法

If .Cells(i, 1) Like UserForm5.TextBox1 & "*" And .Cells(i, 2) Like "*" & UserForm5.TextBox2 & "*" And .Cells(i, 3) Like UserForm5.ComboBox1 & "*" Then