excel 中单元格自动移到下一行。。

发布网友 发布时间：2022-02-23 03:02

我来回答

共4个回答

热心网友 时间：2022-02-23 04:31

是不是相对引用的问题,如果是相对引用,那只要在录制里多加一个这个动作就行了吧.

热心网友 时间：2022-02-23 05:49

我写了一个(只针对于一行中的一个或多个单元格)，代码如下：

Sub 自定义粘贴()
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

你可以把它存放到个人宏工作簿中，并为它定义一个快捷键，比如Ctrl+Shift+C，这个即可快速调用。

GoodLuck!

热心网友 时间：2022-02-23 07:24

如下：，定义选择范围所占行数=iRows，粘贴时选择的行为 jRow
则最后的那句Range("A" & iRows + jRow).Select就是选择操作后下一行的第一个单元格。
——————————————————————————————————
Dim iRows, jRow As Integer
iRows = Selection.Rows.Count
Selection.Copy
Range("A10").Select
jRow = Selection.Row
ActiveSheet.Paste
Range("A" & iRows + jRow).Select
———————————————————————————————————
祝你成功！

热心网友 时间：2022-02-23 09:15

如果你都是按照顺序往下粘贴的，那么可以在一个单元格输入一个统计公式(加入这个单元格为H1）：
=counta（a:a），计算出这一列已经有几行了。
然后再你的宏粘贴下面输入以下代码：
dim i as long
i=range（"h1") '就是你统计已经有几行的单元格
cells(i,1).select
这样你粘贴以后，就会自动跑到下一行的第一个单元格里了。