我希望有人可以帮我解决我的问题。基本上,我有一些范围,我需要独立连接并将连接范围的值放入不同的单元格中。例如,我想要: 在范围A1:A10中连接值并将结果放入F1 ,然后我想连接范围B1:B10并将结果放入F2 ,然后我想连接范围C1:C10并将在F3等结果使用vba连接多个范围
我试图使用下面的宏。但是我卡住了;宏看起来在做什么是连接范围A1:A10,然后把结果放入F1(这是我想要的)。但是它也会将第一个连接的信息存储到内存中,以便在下一个连接完成后,在单元格F2中将F1和F2连接起来。
我试过了很多论坛,但由于这是我自己编写的代码,我无法找到解决方案,我相信这是一个常见问题,并且我做了一些错误,可能无法正确设置变量。
预先感谢您的帮助,
Sub concatenate()
Dim x As String
Dim Y As String
For m = 2 To 5
Y = Worksheets("Variables").Cells(m, 5).Value
'Above essentially has the range information e.g. a1:a10 in sheet variables
For Each Cell In Range("" & Y & "") 'i.e. range A1:A10
If Cell.Value = "" Then GoTo Line1 'this tells the macro to continue until a blank cell is reached
x = x & Cell.Value & "," 'this provides the concatenated cell value
Next
Line1:
ActiveCell.Value = x
ActiveCell.Offset(1, 0).Select
Next m
End Sub
就在'Next m'插入简单语句:'x =“”' – 2013-04-08 20:43:51
哦,你天才!我浪费了整整一天的时间!谢谢!谢谢!谢谢!谢谢!谢谢!谢谢!谢谢!谢谢!谢谢!谢谢!谢谢!谢谢!谢谢! – user2259146 2013-04-08 20:53:48