求高手帮解决随意复制任意单元格

heshipei

如图，我也不知道要怎么表达，技术也不会，所以麻烦各位大师帮解决一下呀！！

随意复制某行单元格.zip (25.4 KB, 下载次数: 8)

2018-3-25 17:32 上传

点击文件名下载附件

1. Private Sub SpinButton1_Change()
   
2. With Sheet2
   
3. r = .Range("A65536").End(xlUp).Row '行数
   
4.     With SpinButton1
   
5.         .Min = 3
   
6.         .Max = 33
   
7.         .SmallChange = 1
   
8.         .LinkedCell = "$H$2"
   
9.     End With
   
10. m = SpinButton1.Value
    
11. Range(Cells(m, 1), Cells(m, 2)).Select
    
12. Selection.Copy
    
13. End With
    
14. End Sub

复制代码

这段是要怎么修改才能只选择1,3,5列单元格

superperson

如果使用控件（就是楼主说的数据按钮），应该考虑使用VBA解决，代码应该不复杂。

superperson

代码如下：
Sub test()
Dim r As Long, str As String
With ActiveSheet
r = Range("h2").Value
str = Range("k3").Value
Range(str) = Cells(r, 1).Value
Range(str).Offset(0, 1) = Cells(r, 3).Value
Range(str).Offset(0, 2) = Cells(r, 5).Value
End With
End Sub
附件已全部做好，日期格式与原格式多少有点不同，楼主可以自定义日期格式。不知是否符合你的要求。

heshipei

superperson 发表于 2018-3-25 18:09
代码如下：
Sub test()
Dim r As Long, str As String

差不多，不过我不是想直接复制在这，而且是选择并复制后我可以粘贴到其他表，像我那个上下控件可以选择并COPY了，但就是不能指定单元格，而是行，弱弱的问下不用VBA可以实现不

heshipei

1. Private Sub SpinButton1_Change()
   
2. With Sheet2
   
3. r = .Range("A65536").End(xlUp).Row '行数
   
4.     With SpinButton1
   
5.         .Min = 3
   
6.         .Max = 33
   
7.         .SmallChange = 1
   
8.         .LinkedCell = "$H$2"
   
9.     End With
   
10. m = SpinButton1.Value
    
11. Range(Cells(m, 1), Cells(m, 2)).Select
    
12. Selection.Copy
    
13. End With
    
14. End Sub

复制代码

这段是要怎么修改才能只选择1,3,5列单元格

heshipei

1. Private Sub SpinButton1_Change()
   
2. With Sheet2
   
3. r = .Range("A65536").End(xlUp).Row '行数
   
4.     With SpinButton1
   
5.         .Min = 3
   
6.         .Max = 33
   
7.         .SmallChange = 1
   
8.         .LinkedCell = "$H$2"
   
9.     End With
   
10. m = SpinButton1.Value
    
11. Range(Cells(m, 1), Cells(m, 2)).Select
    
12. Selection.Copy
    
13. End With
    
14. End Sub

复制代码

这段是要怎么修改才能只选择1,3,5列单元格

superperson

请楼主上传一个较为完整的附件，带上你在4楼提到的“其他表”，并模拟一下最后要达到的效果。

heshipei

superperson 发表于 2018-3-26 09:30
请楼主上传一个较为完整的附件，带上你在4楼提到的“其他表”，并模拟一下最后要达到的效果。

已搞定了，谢谢帮助啊！在这怎么给分的呀！

准提部林

Union(Cells(m, 1), Cells(m, 3), Cells(m, 5)).Select
Selection.Copy