如阶娘独与合突星何实现用vbA自动换行粘贴如 A1 的值复制粘贴到 B1 代码运行一次就跳到 B2 按次序换-爱科技问答

智能回答

如阶娘独与合突星何实现用vbA自动换行粘贴如 A1 的值复制粘贴到 B1 代码运行一次就跳到 B2 按次序换

展开

没找到满意答案？去问豆包AI智能助手

取消复制问题

xuweike

方法1：
可以采用区域粘贴的方式。如：
    Range("A1").Copy Range("B1:B15")方法2：
也可以采用循环粘贴的方式。如：
    For i = 1 To 15
        Range("b" & i) = Range("a1")
    Next
caryecool

=Range(B&ZValue)这样既不会重复也不会跳行关键是那个记录行号的单元格要随着更新不然下次就不知道该贴在哪了挺实用的
fdgdhh

这个其实不难搞啊我之前也遇到过类似的问题用VBA写个简单循环就行首先你得打开Excel的开发工具那个宏功能然后写个Sub函数定义一下变量比如设一个i等于1然后用Range(A1).Copy再写粘贴的时候用Cells(1i+1)这样每次运行完i就加1存到B列不同的行里记得把i定义成静态变量或者存在某个单元格里不然每次都是从B1开始重叠了就很麻烦多试几次应该就能搞定
oPJo

你说的这个功能我早就弄过一次了很简单就是在VBA里面写个过程先把A1复制然后定位到B列去找最后一个有数据的单元格用xlUp方法往上查找到底在哪再往下移一行就是新的粘贴位置然后执行粘贴操作最后记得加个Application.CutCopyMode=False取消选择状态不然会一直闪着虚线很难受还可以加个提示框告诉我粘贴成功到了第几行这样操作起来特别直观适合新手慢慢理解逻辑
962031347

其实这个问题用VBA很容易解决关键是要有个变量记住上次粘贴的位置你可以先把A1的内容复制然后在B列找第一个空单元格贴进去比如用range(B65536).end(xlup).row找到最后一行再加一就是新位置然后粘过去代码可以写成先赋值再pastespecial这样不会覆盖格式而且每次都能自动往下走不需要手动改行号适合反复执行特别方便我经常这么处理批量数据导入的情况省时省力

如阶娘独与合突星何实现用vbA自动换行粘贴如 A1 的值复制粘贴到 B1 代码运行一次就跳到 B2 按次序换

最新回答更多>

相关问答

热门推荐

如阶娘独与合突星何实现 用vbA自动换行粘贴 如 A1 的值 复制 粘贴 到 B1 代码运行一次 就跳到 B2 按次序换

最新回答 更多>

相关问答

热门推荐

如阶娘独与合突星何实现用vbA自动换行粘贴如 A1 的值复制粘贴到 B1 代码运行一次就跳到 B2 按次序换

最新回答更多>