☰

VBA 提示从活动单元格中的组合框复制并粘贴

tag-icon • tag-icon microsoft-excel vba
VBA 提示从活动单元格中的组合框复制并粘贴

有人能帮我从活动单元格的组合框中复制和粘贴吗？下面提到的代码是从活动单元格的下拉菜单中复制和粘贴的，但我需要一个代码来复制粘贴到光标所在的任何单元格中。

Sub Button1_Click()
Sheets("Sheet1").Select
ActiveSheet.Range("Value").Select
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Range("C1048576").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

答案1

来自评论 -

Private Sub ComboBox1_Change() 
ActiveCell.Value = ComboBox1.Value 
End Sub

超级萨姆

相关内容