230问答网 > excel中如何用VBA一次读入一整行的数据到字符串中? 谢谢！

excel中如何用VBA一次读入一整行的数据到字符串中? 谢谢！

2024-12-16 06:23:50

推荐回答（2个）

回答1：

sub aa()
dim str as string
for i =1 to activesheet.usedrange.columns.count'从1到已使用的列数，当然没有使用的就不会有字符了。
str=str & activesheet.cells(行号变量或常量,i).text
next i
msgbox str'这里的str就是一整行数据的字符串。把这段码直接复制过去就行了，运行之后就会跳出提示框。根据需要你可以自己修改代码。
end sub

回答2：

抱歉，刚才的提交前没有认真查一行究竟有几个CELLS，改过重发
顺便改成函数，方便使用

Function GetAline(n As Integer) As String

for i=1 to 256
GetAline=GetAline & cells(n,i)
next i

End Function