如何把列数据写到一个单元格里，VBA解法？

1234vba · 发表于 2018-9-8 16:31

本帖最后由 1234vba 于 2018-9-8 23:59 编辑

我修改了hehuqing老师的代码。

Sub jjuj()
For i = 1 To 84'84行数据
[ab108] = [ab108] & Cells(i, 29) & vbCrLf
Next
End Sub

我的意思是：把AC1-AC84 84个单元格的数据，每个单元格一行逐个写入单元格ab108里、

单元格ab108没有数据。。。代码错在哪里呢

（虽然有84行数据，但才800左右个字符。应该没超出单元格内容限制）

请各位老师帮忙
谢谢

数据类似这样的

  1-3=10  03 04 01
  :**;
  1=10
  2=03
  3=08

microyip · 发表于 2018-9-8 16:40

Sub jjuj()
[ab108] = [ab108] & Join(Cells(1, 29).Resize(84).Value, vbCrLf)
End Sub

复制代码

1234vba · 发表于 2018-9-8 17:15

microyip 发表于 2018-9-8 16:40

---------------------------
老师下午好。

执行代码提示错误
2007版本

Microsoft Visual Basic
---------------------------
运行时错误 '5':

无效的过程调用或参数
---------------------------
确定帮助
---------------------------

jiminyanyan · 发表于 2018-9-8 20:35

上个附件吧。。。。

719404338 · 发表于 2018-9-8 20:55

本帖最后由 719404338 于 2018-9-9 17:21 编辑

Sub t()
Dim i%, str$
For i = 1 To 84
str = str & Range("ab" & i) & vbCrLf
Next
[ab108] = str
End Sub

复制代码

1234vba · 发表于 2018-9-8 23:11

719404338 发表于 2018-9-8 20:55

老师晚上好。。。

好奇怪。。

获取到空值

添加监视arr
这个 arr = [ac1:ac86]也是为空值

1234vba · 发表于 2018-9-9 15:06

哎。。。太奇怪了。。就是不能。。。之前的代码是可以的、。

		自动登录	找回密码
密码			免费注册

[求助] 如何把列数据 写到一个单元格里，VBA解法？

[求助] 如何把列数据写到一个单元格里，VBA解法？