[已解决]跪求大神指导下VBA数据复制问题

1049671600 · 发表于 2019-5-9 17:52

本帖最后由 1049671600 于 2022-10-12 11:46 编辑

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2019-5-9 17:52

下载不了附件，是我电脑的问题，看图做的。

Sub test()
Dim r&
With Sheets(2)
r = .Cells(Rows.Count, 1).End(3).Row + 1
.Cells(r, 1) = r - 1
.Cells(r, 2).Resize(, 10) = Sheets(1).[a2].Resize(, 10).Value
End With
End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976 · 发表于 2019-5-9 17:52

这个最佳答案由大灰狼1976 给出，感谢大灰狼1976 的回答。

单击隐藏图章

下载不了附件，是我电脑的问题，看图做的。

Sub test()
Dim r&
With Sheets(2)
r = .Cells(Rows.Count, 1).End(3).Row + 1
.Cells(r, 1) = r - 1
.Cells(r, 2).Resize(, 10) = Sheets(1).[a2].Resize(, 10).Value
End With
End Sub

复制代码

weare2 · 发表于 2019-5-9 17:52

是不是这个意思?

1049671600 · 发表于 2019-5-11 11:30

weare2 发表于 2019-5-10 14:24
是不是这个意思?

谢谢大哥

1049671600 · 发表于 2019-5-11 11:30

大灰狼1976 发表于 2019-5-10 17:13
下载不了附件，是我电脑的问题，看图做的。

谢谢大哥

1049671600 · 发表于 2019-5-11 14:23

weare2 发表于 2019-5-10 14:24
是不是这个意思?

如果我在表一的数据，想点一下就保存A5行或者A10行里的数据（调整你帮我写的宏保存数据的位置），公式我该怎么写，研究了半天没研究明白，跪求大佬！ TIM截图20190511141726.png

weare2 · 发表于 2019-5-16 20:31

1049671600 发表于 2019-5-11 14:23
如果我在表一的数据，想点一下就保存A5行或者A10行里的数据（调整你帮我写的宏保存数据的位置），公式我 ...

注意不能选择整行

lidayu · 发表于 2019-5-17 08:59

路过

SYKLGSWYT · 发表于 2019-5-17 09:42

Sub test()
Dim r&, ss&
ss = Selection.Row
With Sheets(2)
  r = .Cells(Rows.Count, 1).End(3).Row + 1
  .Cells(r, 1) = r - 1
  .Cells(r, 2).Resize(, 10) = Sheets(1).Range("a" & ss).Resize(, 10).Value
End With
End Sub

选中那行复制那行

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