VBA EXCEL:如何在另一个工作表中输出
在VBA Excel中，可以使用以下代码在另一个工作表中输出数据：
Sub OutputToAnotherWorksheet()
Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet
Dim sourceRange As Range
Dim targetRange As Range
' 设置源工作表和目标工作表
Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
' 设置源范围和目标范围
Set sourceRange = sourceSheet.Range("源范围")
Set targetRange = targetSheet.Range("目标范围")
' 将源范围的数据复制到目标范围
sourceRange.Copy targetRange
' 清除剪贴板中的数据
Application.CutCopyMode = False
End Sub上述代码中，需要根据实际情况修改以下内容：
- "源工作表名称"：将其替换为要输出数据的源工作表的名称。
- "目标工作表名称"：将其替换为要将数据输出到的目标工作表的名称。
- "源范围"：将其替换为要输出的数据的范围，例如"A1:C10"。
- "目标范围"：将其替换为目标工作表中要输出数据的起始单元格，例如"A1"。
执行上述代码后，源工作表中指定范围的数据将被复制到目标工作表中的指定范围。
在腾讯云的产品中，与Excel相关的产品是腾讯文档，它提供了类似Excel的在线表格功能，可以进行数据的输入、输出和处理。您可以通过以下链接了解更多关于腾讯文档的信息：腾讯文档。
相关·内容
1回答
excel VBA中要更改为另一个工作表的循环列引用
excel、vba、copy、copy-paste、worksheet
我有Excel格式的VBA代码。我让它循环一个列(E2:E100)。我只想将一个单元格(相同的引用)从一个工作表复制到另一个工作表。 Sub et()
Dim c As Range
Dim a As Range
Worksheets("CSV2").Select
'//loop it
For Each c In Range(Range("E2"), Range("E2").End(xlDown))
Set a = Worksheets("CSV").c '// The problem is here. I
浏览 11提问于2020-12-19得票数 0
回答已采纳
1回答
如何在单独的工作表上过滤然后填充？
excel、vba
我正在尝试过滤掉任何低于70%的内容，以便在单独的工作表上填充。
我正在从中拉出的图像。
我在网上看了看，得到了一个小代码。
这就是我所拥有的，并且遇到了错误。
Private Sub CommandButton1_Click()
lastrow = Worksheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row
For r = 2 To lastrow
If Worksheets("sheet1").Range("O" & r).Value
浏览 0提问于2020-03-10得票数 0
1回答
Excel VBA将各种excel文件导入主表
excel、import、vba
我有一个主Excel工作簿，我想要创建一个宏，从7个Excel文件中导入指定范围的数据。除了实际数据外，这些文件的结构都是相同的。使用导入宏/按钮，我基本上希望获得一个打开的文件对话框，选择所有的文件，让宏将范围内的数据逐个添加到主文件中。我从这里的另一篇文章中获得了一些灵感，这使得它可以用于一个文件:待调整的代码必须能够选择这7个文件并一个一个地将其动态添加到目标范围。
Sub getData()
Dim slaveBook As Workbook
Dim filter As String
Dim caption As String
Dim slaveFilename As String
浏览 3提问于2014-06-19得票数 0
3回答
在初始宏运行后，将源范围移动到下一行并复制
excel、vba
我最近得到了这个社区的一位成员的帮助，他告诉我应该如何为我的项目构建宏。下面的宏完全按照我所希望的那样工作。但是，有一个手动依赖项我正在尝试更正。 源范围预定义为特定的单元格引用(例如A10、B10、C10、F10...)在运行这个宏之后，我希望源区域向下移动到下一行，这样下次调用宏时，它就会复制A11、B11、C11、F11…… 如果可能的话，请让我知道。以下是我一直使用的VBA代码： Public Sub Update_Project_1()
' Set a reference to the source sheet
Dim sourceSheet As Wor
浏览 25提问于2021-01-26得票数 0
回答已采纳
1回答
将Excel电子表格数据导入到另一个Excel电子表格中-然后移动到下一行
excel、vba、import
我正在将单元格从源电子表格导入到目标电子表格。 使用下面的代码，我从目标系统浏览到源电子表格并导入数据。 Importing Excel spreadsheet data into another Excel spreadsheet containing VBA 我的问题是将数据导入到目标电子表格的下一个空白行。 在处理单个电子表格时，我使用它来添加新行"ActiveCell.EntireRow.Insert Shift:=xlDown“，但是当我在这里使用它时，它会在源电子表格(从导入数据的那一行)上添加一行。 我也试过这个，但无法让它浏览https://www.excelcamp
浏览 19提问于2019-04-04得票数 0
1回答
将原始数据从excel导入到另一个excel中
excel、import、vba
我使用以下代码将原始数据提取(mysql；输出格式为*.xlsx)从excel表(源)导入到表(目标)。
目标工作表是excel-模板包含一些宏，例如允许用户方便地对数据进行排序。
一切都运行得很好，除了一些数据在导入后格式不正确。这真的很奇怪，但由于任何原因，目标并不是源表的精确副本。例如，我遇到过日期格式和小数的问题。
我尝试了几种方法来调整代码，但都失败了。我相信代码处理目标表单中导入的方式是它不能工作的原因。
现在我的问题是，是否有任何其他方法可以将数据从excel导入到excel。另外，我正在寻找一个解决方案，我怎样才能解决问题，即excel自动格式化所有的值为文本？
任何帮助都将
浏览 6提问于2013-07-23得票数 0
1回答
从工作表中的内容限制循环到VBA Excel中匹配和复制
excel、vba
我是新来的，这是我的问题；在vba，excel 2010中，我想在每一行中搜索一个特定的单词或一个单词列表，如果它匹配，那么它会复制该工作表的整行，并在第一行粘贴到一个新的一行，然后在单词列表结束后继续在工作表上来回循环。最后，您将得到一个新的工作表，其中包含从您的搜索查询中收集的一堆行。我有一些初始代码，不知道你们会不会喜欢看。谢谢。
Sub Macro1()
Dim sheetName As String
Dim recintos As String
Dim recintosArray() As String
Dim namevar As Variant
浏览 0提问于2020-02-08得票数 0
回答已采纳
1回答
通过更改文件名将数据从一个工作表复制到另一个工作表
excel、vba
我试图从一个工作簿中获取数据并将其粘贴到另一个工作簿中。
工作簿每个月都在变化。我想使用Application.fileDialog选择源文件。
Sub CopyTest ()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Add "Excel Files", "*.xlsx; *.xlsm; *.xls; *.xlsb", 1
'Show the dial
浏览 4提问于2019-12-19得票数 0
回答已采纳
1回答
在Excel中如何使用VBA仅复制具有特定顺序的所需单元格
excel、vba
我的代码现在通过路由复制最后一个单元格下面的整个内容。
我不仅要按路线过滤，而且要按发货过滤-所以要用yes或no。
我还希望仅将选定的单元格复制到。如下图所示(例如，单元格C2到另一个工作簿中的单元格A1 )。
我的代码如下所示：
Private Sub CommandButton1_Click()
Dim cell As Range
With Workbooks("FromHEre.xlsm").Worksheets("Sheet1")
For Each cell In .Range("D1:D" & .Cells(.Rows.C
浏览 20提问于2020-03-07得票数 0
回答已采纳
2回答
自动过滤未返回数据后，如何处理运行时错误？
excel、vba
我有许多带有VBA宏的工作表，它们在自动筛选后传输数据。
当工作表在自动筛选后没有数据时，宏在行上显示运行时错误1004
Workbooks("Predictology-Reports.xlsx").Sheets("FAL") _
.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
下面是其中一个的完整宏
Sub FALAYS()
Dim arr, ws As Worksheet, lc As Long, lr As L
浏览 0提问于2020-10-21得票数 0
1回答
将文件夹中的文件csv导入到单个工作表中
excel、vba
我使用下面的代码将多个CSV文件放到一个工作表中。 代码工作正常，但问题是，它不应该复制每个文件的标题，因为每个文件标题都是相同的。 代码应该复制第一个文件头，而不是所有文件。 还有一件事，我不希望第一列复制所有的图纸名称，我试图删除该文件，但代码不起作用。 我能得到任何帮助吗。谢谢 Sub CSV()
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error GoTo ErrHandler
Set xF
浏览 18提问于2020-12-16得票数 0
回答已采纳
1回答
根据单元格范围命名工作表问题
excel、vba
因此，我尝试使用单元格O2:O29中的单元格值(文本)来创建工作表。当我运行宏时，它为每种颜色创建一个新的工作表，但没有相应地命名它们。我的目标是对它们进行相应的命名。
以下是我到目前为止拥有的代码：
Sheets("specifiedsheet").Select
Range("A1").Select
Dim cell As Range
Dim color As Range
Set color = Sheets("specifiedsheet").Range("O2:O29")
For Each cell In color
浏览 0提问于2020-02-29得票数 0
2回答
Range类错误选择方法失败
vba、excel
我的代码旨在导入用户选择的.xls文件，并将其复制并粘贴到Book 1中的数据表中。本书1有2页:结果和数据。
当我在结果中时，我想运行代码，这就是问题所在。当我在数据表中运行它时，在清除当前工作表(数据)之后，文件将被导入并很好地复制。
但是，当我在结果表中导入它时，根据MsgBox Err.Description，它会出现一个错误--代码中有什么问题？
Sub ImportData()
Dim customerBook As Workbook
Dim filter As String
Dim caption As String
Dim customerFilename As String
浏览 2提问于2017-11-10得票数 0
回答已采纳
我正在编写一个代码，根据标准将数据从Workbook 2复制到Workbook 1(主工作簿)。
标准是-如果工作簿1(主工作簿)中单元格C11的值等于工作簿2的A列，那么将所有数据从Workbook 2列A复制到F到Workbook 1(主工作簿)。请注意，可能有多个匹配值(在工作簿2中)可能需要复制到工作簿1。
我已经尝试了下面的代码来完美地提取所有的数据。现在，我试图看看是否有一个代码可以应用于基于标准的数据复制。
Private Sub CommandButton1_Click()
' Get Tiger calendar workbook...
Dim customerBo
浏览 0提问于2018-12-24得票数 2
回答已采纳
1回答
如何修改现有的VBA，以便在从一个工作表导入到另一个工作表时传递空值？
vba、excel
我一直在寻找一种方法来将下面答案中的“优秀答案”(VBA代码)从"JDH“转换为”优秀答案“。(我觉得不适合尝试直接联系，以获得进一步的帮助，他的答案如下)
下面的回答/答案中的VBA答案是我需要的90%完美，除了一旦我在源工作簿中读取我的Part#和订单数量的数据(源可以是5000行的产品，并已被筛选下来隐藏与空白订单数量的行)，下面的VBA将复制范围内的所有数据，无论它是否已被过滤。
(下面是接近我需要的90+% )
我已经修改了代码，使其适用于我的实例，在我不得不读取Part #& Order Qty不为空的数据之前，一切都运行得很好。如果Order Qty不为空，我只
浏览 0提问于2012-05-24得票数 1
2回答
从excel工作表中获取数据并将其复制到活动工作簿中。
vba、excel
我是一个使用VBA的新手，我找到了下面的代码。它工作得很好，但我需要源文件中的所有行。我怎样才能改变代码，使我不再局限于使用行号，因为每次都会不同。
Private Sub Import1_Click()
' Get customer workbook...
Dim customerBook As Workbook
Dim filter As String
Dim caption As String
Dim customerFilename As String
Dim customerWorkbook As Workbook
Dim targetWorkbook As Workbook
浏览 0提问于2013-11-06得票数 1
回答已采纳
2回答
如何将数据粘贴到在单元格中定义范围的起始行和列的区域中？
excel、vba、copy-paste
我的excel文件中有两张床单：
输入表： Sheet1
目标表： Sheet2
我想要实现的是粘贴值，从我在单元格C5中定义的列开始，也从我在单元格C6中定义的行开始。如果单元格C5和C6定义的范围已经有数据，那么它将根据单元格C5中的列找到下一个空行，并将数据粘贴到空行中。
例如，在上面的屏幕快照中，单元格C5 & C6中定义的起始列和行是B8，因此复制的值将从单元格B8开始粘贴到E8。但是，如果该行已经有数据，那么它将根据B列(即B9)找到下一个空行，并将其粘贴到那里。
我不知道如何修改我的当前脚本：
Public Sub CopyData()
Di
浏览 4提问于2021-12-29得票数 1
回答已采纳
1回答
如何将数组的值设置为工作表的第一行？
excel、vba、while-loop
我正在尝试创建一个数组，其中值来自工作表的第一行，然后在另一个工作表中打印这些值。
我尝试读取Sheet2的第一行，将每个值存储在数组中，直到我到达一个空单元格，然后在Sheet3的第一行中打印该数组。
我在while循环中得到一个应用程序定义的错误，在这个循环中，我要确保行不等于Null。
Private Sub createFormatSheet()
With Worksheets("Sheet2")
Dim myTags() As Variant
Dim tag As Variant
Dim rw As Ran
浏览 1提问于2020-02-06得票数 0
回答已采纳
1回答
使用VBA选择所有非空白行和单元格。
vba、excel
我对VBA很陌生，我一直在努力弄清楚如何打开一个输入文件并将这些内容复制到我的工作簿上的一个隐藏的工作表中，我看到了一个如何这样做的例子，但是行和列的数量是静态的，我必须使用三个不同的输入文件--其中一个是不断变化的，虽然我一直在尝试使用我的直觉来处理这个问题，但我似乎找不到答案。
下面是：
Sub s()
' Get customer workbook...
Dim customerBook As Workbook
Dim filter As String
Dim caption As String
Dim customerFilename As String
Dim custome
浏览 2提问于2013-10-23得票数 0
回答已采纳
1回答
如何在VBA中创建循环并始终移动到下一个使用的单元格
vba、excel
我正在将数据从一个工作表复制到另一个工作表，使用宏进行转置和自动填充，但我想创建一个循环，使其始终选择要复制的前一个工作表(MF2)中的下一个单元格("A8“和”B8“)，而不必手动更改单元格。这是我正在使用的宏
Sub Test1()
Sheets("MF2").Select
Range("A8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Columns("A
浏览 1提问于2014-09-23得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
活动推荐
腾讯云开发者
