Question

关于一个excel宏的问题（合并单元格内容）

我想写一个合并两列单元格内容的宏，当我运行下列代码时提示类型不匹配，求问错误在哪啊？
（我知道有更简单的方法实现合并单元格，我新学VBA，只是想知道错在哪）
谢谢各位大神了！！！！！！

Sub 合并单元格()
Dim arr As Variant, brr As Variant
arr = Range("D2:D98").Value
brr = Range("E2:E98").Value
Range("G2:G98").Value = Application.WorksheetFunction.Transpose(arr & brr)
End Sub

Answer 1

这种写法真有您的
首先arr & brr这里是不能直接连接的

要分别从arr与brr中对应的数据一个一个取出来&
这样可以形成一个组合好的新的一维数组
再用Transpose转置

追问

具体该怎么写呀？
我刚学几天，不是很会...( ▼-▼ )

Answer 2

arr & brr 不行，要先加起来，Transpose里面脂肪一个数组，而且尺寸和前面的区域一样

追问

先加起来要怎么加呢？（我刚学几天不是很会。。。）

追答

for i = lbound(arr) to ubound(arr)
arr(i)=arr(i)+brr(i)
next i

Range("G2:G98").Value = Application.WorksheetFunction.Transpose(arr)