我有一个导出到工作表按钮,但我不能让它正常工作。我选择了要复制的正确单元格,但无法将它们转置到出现在单元格A1的下拉框中的选定工作表上,然后我还需要将其粘贴到该特定工作表中的下一个可用行上。问题是,当下拉框中的列表发生变化时,我不能只在VBA中列出图纸。我已经尝试了几种方法,但都没有成功。如果有人能帮上忙那就太好了
Sub Button2_Click()
Worksheets("Sheet1").Range("a2:x2").Copy
ActiveSheet.Paste Destination:=Worksheets("Sheet1!A1").Range("a:x")
End Sub
发布于 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
发布于 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
复制相似问题