Question

我希望在临时Excel工作表上复制一系列数据（列A：M），并在工作表中添加“ tmp”前缀，该工作表旨在将所有这些数据输出整理成可用的报告。

当前，用户只需将临时输出手动复制到报表制作工具中，然后运行宏即可。

是否可以自动执行此数据输入？

Answer 1

亚伦，SO用于教学。但是，由于我很无聊，并且如果您不将其重新发布在这里，这是如何实现目标的想法。请记住，使用VBA以及可能所有其他语言，有20种不同的方法可以完成同一任务，但是适合每个用户独特情况的是SO希望解决的问题。为了给您一个滚动的开始，也许还有一些动力...

Option Explicit

Sub CopyStuff()

Dim ws As Worksheet
Dim ws2 As New Worksheet
Dim rngToCopy As Range
Dim ShtName As String

'use ActiveSheet or actual name
Set ws = ActiveSheet
Set rngToCopy = ws.UsedRange.Columns("A:M")
Set ws2 = ThisWorkbook.Worksheets.Add

'gets name for sheet
ShtName = InputBox("Please enter name for Sheet.")

'more properties to fill if needed, or adjust area to copy to
'just an example here
With ws2
    .Name = "tmp" & ShtName
    rngToCopy.Copy .UsedRange.Columns(.UsedRange.Columns.Count + 1)
End With

'cleanup
Set ws = nothng: Set ws2 = Nothing
Set rngToCopy = Nothing: ShtName = vbNullString

End Sub

丹尼

ExcelVBADude

有关将数据从一个打开的工作簿复制到另一个工作簿的问题

1 个答案: