VBA代码运行中一直提示1004

1186634263

您好，我是看网上视频学习VBA代码，其中VBA数组中Join函数的用法，以

下是那段代码：

Sub 数据合并()

i = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
With Sheet2
For j = 1 To i
   Set k = Range(.Cells(j, 1), .Cells(j, Columns.Count).End

(xlToLeft))
   arr = Application.Transpose(Application.Transpose(k))
   Cells(j, 1) = "'" & Join(arr, "")
Next j
End With

End Sub


运行这段代码前台报错400，我到VBA窗口中按f8键逐句运行查看，运行到

Set k = Range(.Cells(j, 1), .Cells(j, Columns.Count).End

(xlToLeft)) 这句代码后就提示 运行时错误1004：应用程序定义或对象定义错误，

首先我将代码每个字句符号查看都与网上视频上的不差，后搜百度勾选“

信任对VBA工程对象模型的访问”选项，并且将宏的安全性将为最低，但是这些措施都无效，仍出报错信息，求大师指点迷津。

Join函数.zip (17.86 KB, 下载次数: 5)

2018-8-6 22:48 上传

点击文件名下载附件

凌空一羽

Set k = .Range(.Cells(j, 1), .Cells(j, Columns.Count).End(xlToLeft))  'range前面少了一个点

不知道为什么

建议找个视频不要看了，还是到论坛来找点基础知识好好学习下。错误太多

不知道为什么

如图

abc123281

看了你的代码  不明白你想要怎样合并    结果怎样放置

1186634263

真是高手啊！谢谢“凌空一羽”、“不知道为什么”、“abc123281”大师指点，以后我会把重点放到论坛来找点基础知识学习。

1186634263

特别感谢“凌空一羽”，您真是一句话就把问题解决了，原来是range前面少了个点，现问题已解决。