求指点！如何用宏做到粘贴在光标所在列左边第5列的位置

f0229f0229 · 发表于 2017-6-20 20:09

请各位高手指点一下，谢谢了

朱荣兴 · 发表于 2017-6-20 21:10

提示: 作者被禁止或删除内容自动屏蔽

f0229f0229 · 发表于 2017-6-21 10:55

你好，还是不行，能给个完整的程序吗，谢谢

lss001 · 发表于 2017-6-21 15:34

本帖最后由 lss001 于 2017-6-23 18:40 编辑

selection.offset(0, -5).select'当前左边5列
selection.offset(0, 5).select'当前右边5列

f0229f0229 · 发表于 2017-6-22 15:52

你好，我带入程序后提示编译错误：语法错误，另外，我想把复制内容以“HTML”格式粘贴如何写程序，还请指教一下，谢谢
Sheets("Sheet1").Select
Range("A1:A12").Select
Selection.Copy
Sheets("Sheet2").Select
[IV1].End(xlToLeft).Column
selection.offset.(0, -5).select
ActiveSheet.Paste

End Sub

lss001 · 发表于 2017-6-23 01:08

本帖最后由 lss001 于 2017-6-25 20:39 编辑

Sheets("Sheet1").Range("A1:A12").Copy
Sheets("Sheet2").select
Range("IV1").End(xlToLeft).offset(0, -3).select
ActiveSheet.Paste

f0229f0229 · 发表于 2017-6-23 13:23

你好，我试了仍然是提示：语法错误，另外[IV1].End(xlToLeft).Column 意思是 '第一行末列向左第一列有数值之列数。不是我要粘贴到IV1单元格，是要粘贴到光标所在的列的左边，麻烦你再修改一下，谢谢

lss001 · 发表于 2017-6-23 19:13

f0229f0229 发表于 2017-6-23 13:23
你好，我试了仍然是提示：语法错误，另外.End(xlToLeft).Column 意思是 '第一行末列向左第一列有数值之列 ...

楼上己改正！！！

f0229f0229 · 发表于 2017-6-24 14:17

你好，Range("IV1").End(xlToLeft) .offset(0, -3).select提示：语法错误

lss001 · 发表于 2017-6-25 20:45

f0229f0229 发表于 2017-6-24 14:17
你好，Range("IV1").End(xlToLeft) .offset(0, -3).select提示：语法错误

SUb a()
Sheets("Sheet1").Range("A1:A12").Copy
Sheets("Sheet2").select
Range("IV1").End(xlToLeft).offset(0, -3).select
ActiveSheet.Paste
End Sub
电脑上运行正常,如产生错误可能表2中没有数据，程序找不到单元格位置造成的

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-6-20 21:10 来自手机 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报