excel使用技巧大全在平時的工作中，大家是否會經常遇到要把幾列數據合并在一起呢？那在VBA中又該如何做呢？
看下圖：
如上圖所示，A到D列是數據區域。在這些數據區域中，可以通過輸入關鍵字提取相關信息，并将其放置在F到I列中。
方法如下：
合并數據區域每一行的數據，當我們輸入查詢關鍵字時，我們将每一行數據與輸入關鍵字合并在一起。假如數據裡有關鍵字時，則會将這一行數據放置到新數組中，然後在轉置後将新的組數輸出到F到I列。
怎樣才能将每一行的數據合并一起呢？我們需要用VBA裡面的join函數。
用法：
join（待合并的數組，"分隔符号"），第2個參數不寫就會默認以空格分開。
注意：join隻能合并1維數組。
本文開頭說的案例代碼：
Sub 查找()
Dim hs%, i%, arr, a, sr$, arr1(), n%
sr = InputBox("請輸入要查找的内容")
hs = Range("a1").CurrentRegion.Rows.Count
For i = 1 To hs
arr = Cells(i, 1).Resize(1, 4)
a = join(Application.Transpose(Application.Transpose(arr)))
If a Like "*" & sr & "*" Then
n = n 1
ReDim Preserve arr1(1 To n)
arr1(n) = arr
End If
Next
[f3].Resize(n, 4) = Application.Transpose(Application.Transpose(arr1))
End Sub
arr為每一行的數據，為一個一行四列的數組（二維數組），如果想用join合并，則要将arr通過transpose轉置2次變為3維數組後才能合并。
,更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
