运行宏报错，提示：1004，应用程序定义或对象定义错误。请帮忙看看问题在哪

dmdmdm

如何用宏执行复制B2:B27的值（不含公式）到下一个空列中的对应行中。

Sub demo()

Cells(Columns.Count, 2).End(xlToRight).Offset(0, 1).Resize(26, 1).Value = [b2:b26]

End Sub

上面的代码运行时提示：应用程序或对象定义错误。错误代码“1004”，错在哪呢？

dmdmdm

Sub demo()
Cells(Columns.Count, 2).End(xlToRight).Offset(0, 1).Resize(26, 1).Value = [b2:b26]
End Sub

上面的代码运行时提示：应用程序定义或对象定义错误，错误代码1004；错在哪呢？

bqwd36

thisworkbook.sheets(1).range("B2:B26).copy thisworkbook.sheets(1).cells(2,thisworkbook.sheets(1).usedrange.columns.count+1)

WANT-T

以07以上版本为例，columns.count= 16384 ,你的cells(16384,2）应该不是你想要的位置吧？在这个位置向右到 头，也就是cells（16384，16384）,你知道这个位置在 哪吗？然后扩展了26个格，填充25个数，这样有没有问题呢，不太清楚呢？当然这只是逻辑方面的问题!其它的方面呢，语法也不对，给单元格赋值，没有这种写法 ！

dmdmdm

WANT-T 发表于 2023-3-5 21:20
以07以上版本为例，columns.count= 16384 ,你的cells(16384,2）应该不是你想要的位置吧？在这个位置向右到  ...

谢谢指教，谢谢指教

dmdmdm

该问题以搞定，谢谢各位网页热情相助！