关于复制列数据 运行时错误 1004

92072026

.Sheets("Sheet1").Range("a:m").Copy ThisWorkbook.Sheets("Sheet1").Columns("1:13")


这代码需要怎么修改，把Columns("1:13")改成Range("a:m")确实可以

但是需要用上Columns("1:13")，请问该怎么修改

shimakaze

把 1  ，13 转化为 a ，m？

92072026

shimakaze 发表于 2024-3-6 10:42
把 1  ，13 转化为 a ，m？

改成a,m是可以，但我想用Columns("1:13")表示不可以吗？

大灰狼1976

直接不行，要么把1:13转换成列号（字母），要么变通：
Range(Columns(1), Columns(13))

大灰狼1976

然后实际运用中，整列复制后，不一定要整列粘贴，只要确定左上角单元格就行了，比如：
.Sheets("Sheet1").Range("a:m").Copy ThisWorkbook.Sheets("Sheet1").Cells(1, 1)
这样改变Cells的列参数就行了。

lisongmei

Range("a:m").Copy
Range("h1").PasteSpecial xlPasteAll

同一个工作表里，好像是这样吧

92072026

大灰狼1976 发表于 2024-3-6 11:42
直接不行，要么把1:13转换成列号（字母），要么变通：
Range(Columns(1), Columns(13))

Range(Columns(1), Columns(13))不可行哦