[已解决]求助：一个复制问题

千里马彩票 · 发表于 2016-2-15 10:27

求助:如何实现，单击最上“复制”单元格，就可以分别复制对应列的第2-22行数据至剪贴板？

点击复制问题.rar (241.49 KB, 下载次数: 3)

爱疯 · 发表于 2016-2-15 10:38

是不是
如果单击E1，就复制E2:E16
如果单击F1，就复制E2:F4

千里马彩票 · 发表于 2016-2-15 10:57

爱疯发表于 2016-2-15 10:38
是不是
如果单击E1，就复制E2:E16
如果单击F1，就复制E2:F4

如果单击E1，就复制E2:E16
如果单击F1，就复制f2:F4

单击h1，就只复制H列的

爱疯 · 发表于 2016-2-15 11:07

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r, c
r = Target.Row: c = Target.Column
If r = 1 And Target.Count = 1 Then
' MsgBox Range(Cells(2, c), Cells(2, c).End(xlDown)).Address
Range(Cells(2, c), Cells(2, c).End(xlDown)).Copy
End If
End Sub

点击复制问题2.rar (246.83 KB, 下载次数: 10)

千里马彩票 · 发表于 2016-2-15 11:12

爱疯发表于 2016-2-15 11:07
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r, c
r = Target.Row: c = ...

感谢爱疯朋友的指点，实现了我的要求。现在还有个小问题，我想把上边的数据隐藏了，照样可以点击复制，复制先前的数据，不知道怎么改进？

爱疯 · 发表于 2016-2-15 11:17

“把上边的数据隐藏了，照样可以点击复制，复制先前的数据”，

不清楚是什么意思，建议上传修改后的附件

千里马彩票 · 发表于 2016-2-15 11:22

爱疯发表于 2016-2-15 11:17
“把上边的数据隐藏了，照样可以点击复制，复制先前的数据”，

不清楚是什么意思，建议上传修改后的附件

点击复制问题2.rar (12.32 KB, 下载次数: 4)

爱疯 · 发表于 2016-2-15 11:39

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r, c
r = Target.Row: c = Target.Column
If r = 1 And Target.Count = 1 Then
      Application.ScreenUpdating = False
      Rows("2:21").RowHeight = 13.5
      Range(Cells(2, c), Cells(2, c).End(xlDown)).Copy
      Rows("2:21").RowHeight = 0
      Application.CutCopyMode = 0
End If
End Sub

nj3.rar (8.94 KB, 下载次数: 8)

千里马彩票 · 发表于 2016-2-15 11:45

高手啊，附件传错了吧，同时帮好几个人，向高手致敬！~

爱疯 · 发表于 2016-2-15 15:12

千里马彩票发表于 2016-2-15 11:45
高手啊，附件传错了吧，同时帮好几个人，向高手致敬！~

点击复制问题3.rar (11.12 KB, 下载次数: 30)

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