我想复制一系列单元格，并将它们粘贴到另一个工作表中，这取决于下拉选择，并使用按钮激活
我有一个导出到工作表按钮，但我不能让它正常工作。我选择了要复制的正确单元格，但无法将它们转置到出现在单元格A1的下拉框中的选定工作表上，然后我还需要将其粘贴到该特定工作表中的下一个可用行上。问题是，当下拉框中的列表发生变化时，我不能只在VBA中列出图纸。我已经尝试了几种方法，但都没有成功。如果有人能帮上忙那就太好了
Sub Button2_Click()
Worksheets("Sheet1").Range("a2:x2").Copy
ActiveSheet.Paste Destination:=Worksheets("Sheet1!A1").Range("a:x")
End Sub回答 2
Stack Overflow用户
发布于 2019-05-23 02:29:57
下面是我针对这个问题尝试过的更多代码，但似乎仍然不起作用。
子ExportButton1()‘’ExportButton1宏‘从下拉框’‘将数据导出到职员工作表’‘键盘快捷键: Ctrl+e’ActiveWorkbook.Save结束子私有子CommandButton1_Click(ByVal目标作为范围) Application.ScreenUpdating = False Dim copySheet As Worksheet Dim pasteSheet As Worksheet
设置copySheet =工作表(“Data”)‘出错时继续下一步’如果不是(Application.Intersect(Range("H2")，Target)为Nothing)则_
Set pasteSheet =工作表(ActiveSheet.Range(“H2”))
copySheet.Range("G5:AA5").Copy pasteSheet.Cells(Rows.Count，1).End(xlUp).Offset(1，0).PasteSpecial xlPasteValues Application.CutCopyMode = False Application.ScreenUpdating = True End Sub
Stack Overflow用户
发布于 2019-05-23 16:36:24
我已经找到了另一种解决问题的方法，将单元格复制粘贴到特定的工作表中，然后对表中的公式进行测试，以测试数据表上的列A值的名称，并仅转置这些行
Sub Macro1()
Range("A2:J2").Select
Selection.Copy
Sheets("Sheet3").Select
Range("A60000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select结束子对象
‘员工工作表上的公式为-=IF(Sheet3!A:A="Column1"，Sheet3!$B:$B，"")
https://stackoverflow.com/questions/56253381
复制相似问题
腾讯云开发者
