VBA调整复制的数据
是指使用Visual Basic for Applications（VBA）编程语言来调整和复制数据的操作。VBA是一种用于自动化任务和增强Microsoft Office应用程序功能的编程语言。
在VBA中，调整复制的数据可以通过以下步骤实现：
- 定义数据范围：首先，需要确定要调整和复制的数据范围。可以使用VBA中的Range对象来指定数据范围，例如使用"Range("A1:C10")"来表示A1到C10的单元格范围。
- 调整数据：可以使用VBA中的各种内置函数和方法来对数据进行调整。例如，可以使用Sort方法对数据进行排序，使用Filter函数对数据进行筛选，使用Transpose函数对数据进行转置等。
- 复制数据：一旦数据调整完成，可以使用VBA中的Copy方法将数据复制到指定的位置。可以使用Range对象的Copy方法来复制数据，例如使用"Range("A1:C10").Copy"来复制A1到C10的数据。
VBA调整复制的数据在各种场景中都有广泛的应用，例如：
- 数据清洗和整理：可以使用VBA来自动化清洗和整理大量的数据，例如删除重复项、填充空白单元格、格式化数据等。
- 数据分析和报告：可以使用VBA来处理和分析数据，并生成相应的报告。例如，可以使用VBA来计算数据的平均值、总和、标准差等统计指标，并将结果呈现在Excel表格中。
- 数据转换和导入：可以使用VBA来将数据从一个格式转换为另一个格式，或者将数据从外部源导入到Excel中。例如，可以使用VBA来将CSV文件中的数据导入到Excel表格中。
对于VBA调整复制数据的操作，腾讯云提供了一系列相关产品和服务，例如：
- 腾讯云服务器（https://cloud.tencent.com/product/cvm）：提供可靠的云服务器实例，可以在云端运行VBA代码。
- 腾讯云数据库（https://cloud.tencent.com/product/cdb）：提供高性能、可扩展的云数据库服务，可以存储和管理VBA操作的数据。
- 腾讯云函数（https://cloud.tencent.com/product/scf）：提供无服务器计算服务，可以用于执行VBA代码并处理数据。
- 腾讯云对象存储（https://cloud.tencent.com/product/cos）：提供安全可靠的云存储服务，可以存储VBA操作所需的文件和数据。
请注意，以上仅为腾讯云提供的一些相关产品和服务示例，其他云计算品牌商也提供类似的产品和服务。
相关·内容
1回答
我是新来这个网站的，我希望有人能帮我解决一个Excel VBA的问题。我正在尝试返回在精算三角形的每一行中包含数据的最后一个单元格。我有大约400个三角形，每个三角形大约有15行数据，我需要返回每个数据行中包含数据的最后一个单元格。
但是由于单元格的列是每一连续行的数据是上面行左边的两列，所以我不能做一个简单的="$" column "" row“”函数。我认为IF THEN ELSE语句循环VBA将是我最好的选择。但由于我以前从未编写过VBA代码，我不知道如何开始。有人能给出如何开始的指导吗?谢谢！
浏览 0提问于2013-12-11得票数 0
1回答
我的任务是用VBA更新可通过Citrix Workspace应用程序访问的.xlsm文件。之前的作者已经离开了公司，没有留下任何关于它的进一步文档。 VBA受密码保护。我以前用十六进制编辑器破解和重新调整过VBA密码，我很乐意尝试一下。唯一的事情是，这个当前项目的作者还抛出了一些VBA，这阻止了文件被保存为，然后是密码保护。 你知道怎样才能通过保存预防VBA吗？或者将文件另存为.zip文件到我的计算机？
浏览 16提问于2019-10-15得票数 0
1回答
大家早上好
我正在让我自己参与我自己的新项目，为我自己和我分析54种产品。我希望每件产品都放在一张单张和第二张纸上，以了解更多细节。所以我在google上查了一下，找到了EXCEL VBA，我试着自己找了一个公式，但我不明白，我需要的是专业知识。即使这样做很吸引人，我现在也没有时间学习计算机语言。
是否有可能在一个VBA公式中得到我所有的步骤？我想象着我每天都在改变VBA中的细胞位置并申请！
下面是细节，让我们轻松处理这54个产品、天和单张，我很难集中精力，让我们一起成像--我在一天内获取一个产品的数据，然后在VBA中压缩54个产品，对吗？
是否可能得到一个公式，可以将3个单元格从一个工作表复
浏览 4提问于2022-02-01得票数 0
全,
我需要一些严肃的帮助。我没有创建excel电子表格，但我正在尝试为一位朋友更正它。
这就是问题所在，这个电子表格被公司中的许多人使用，并且它并不总是包含相同数量的行数。
我使用下面的VBA代码插入一个新行，用于复制上面的单元格并粘贴到新行中。问题是它没有合并单元格，也没有将公式向下传递到AM列中的下一行。
如何修改现有的VBA代码以合并单元格并保留上一行的格式，并修改下一行的公式
我找不到在哪里附加我正在使用的数据库的副本，以便您可以看到该数据库。请帮帮忙
下面是我目前使用的代码：(顺便说一句)-我是个愚蠢的VBA，所以请尽量保持简单。下面的代码是从别人那里借来的，以满足我的需求。
下面
浏览 2提问于2014-01-29得票数 0
我有这个Excel公式，我想通过VBA实现它，不幸的是它总是产生错误。
我的Excel公式：
IF(isemptyornothing(A1:A50); ""; IF(ISNUMBER(VALUE(A1:A50)); VALUE(A1:A50); A1:A50))
我的VBA尝试：
Range("B1:B50").Formula = _
"=IF(IsEmptyorNothing(A1:A50), "", IF(ISNUMBER(VALUE(A1:A50)), VALUE(A1:A50), A1:A50))"
浏览 10提问于2017-08-23得票数 0
回答已采纳
2回答
我正在通过VBA、用户表单和Excel自动生成powerpoint幻灯片。在excel中运行VBA脚本，填写数据，数据进入excel中的单元格中，然后VBA脚本将数据拉出并放入幻灯片中的文本框形状中。
我的问题是，我想在不同的时间使用不同的字体大小，例如，28 pt字体用于一个部分，14 pt用于其他部分。问题是，我对textbox所做的任何属性更改都适用于形状中的所有文本。
我目前的解决办法是草率的，只需在原来的文本框上生成另一个文本框，并在原始文本框中插入间距，因此看起来更大的文本“在”文本框中，而实际上它只是坐在几行空行上。
浏览 13提问于2014-09-29得票数 1
回答已采纳
我在CAD程序中使用vba导出数据、排序数据和添加数据。下面的宏正是我想让excel做的。然而，我相信我只能让CAD程序告诉Excel通过VBA做什么。此宏复制公式并将其粘贴到列中该公式下面的所有已填充单元格。
宏代码：
Range("B1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
代码的iLogic版本：
oBook.WorkSheets(1).Name = "Order List"
oBook.WorkSheets(2).N
浏览 0提问于2019-11-09得票数 0
当我意外地运行VBA代码多次将数据从一个工作簿复制/粘贴到目标工作簿时，它将在目标工作表中创建多个具有相同数据的行。
我希望VBA代码识别前一行是相同的，以防止数据重复。
此外，我的VBA代码将把公式复制到目标Excel文件中。
我只想复制值，而不是公式。我不知道如何在我的VBA代码中使用PasteSpecial。
Sub Copy_Paste_Below_Last_Cell()
Dim wsDest As Worksheet
Dim lDestLastRow As Long
Set wsDest = Workbooks("Destin
浏览 6提问于2021-01-20得票数 1
回答已采纳
1回答
复制跌落
、
我有一个VBA宏，它将公式和值从一个工作表复制到另一个工作表。问题是，当它复制下拉列表时，它会删除列表，只复制值。
我尝试了以下两种方法，但两者都有相同的问题。
wb_to.Sheets("Core").Range(cel_loc_new).PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
和
wb_to.Sheets("Core").Range(cel_loc_new).PasteSpecial Paste:=xlPaste
浏览 3提问于2022-09-05得票数 1
回答已采纳
如前所述，我有一个.accdb数据库，它实际上就是BE数据集，用户可以通过Excel链接到该数据库，并通过VBA刷新数据。
最近，BE密码可能被破坏了，所以我们需要更改这个密码。我们有100多个用户每天访问Excel文件，以刷新数据。即使一天结束，一些用户仍然被锁定在链接未中断的文件中，或者他们会在一夜之间登录。不幸的是，现在我无法解密BE，因为它不允许我在数据库被锁定时独占打开数据库(不管最初链接的是什么机器)。
这是否是Access & Excel的一个限制，即在没有锁定的情况下，数据库没有“活动”链接？我的字符串确实包含：
Mode=Read;
但不幸的是，这仍然锁定了文件。如果
浏览 2提问于2018-08-01得票数 1
回答已采纳
1回答
我的工作簿中有两个工作表，"Sheet1“和"Data”。在Sheet1中，我使用了一个Worksheet_Change宏，以便当C列发生更改时：
一个时间戳出现在D列中
该范围将被复制到“数据”表中。
这是我的代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Location As Range
If Target.Column > 3 Or Target.Column < 3 Then Exit Sub
Application.EnableEvents =
浏览 1提问于2017-04-05得票数 0
3回答
嗯，我知道，VBA宏和非VBA宏在访问方面是有区别的。
创建和编辑VBA-宏与Word/Excel没有太大区别:您有一个文本字段，可以在其中编写代码：
但是非VBA宏的编辑呢？对我来说，它看起来像是“用鼠标点击编程”(对我来说，对于Access中的新人来说，这看起来很奇怪)：
问题：
在访问“使用鼠标”时编辑非VBA宏是一种常见而正确的方法吗？或者，也许还有另一种方式，如第一张图片所示？
如果我有一个非VBA宏，我如何将它从一个数据库复制到另一个数据库(或者，堆栈溢出)？
浏览 0提问于2018-03-31得票数 1
回答已采纳
我有一个数据集，其中包括个人的得分，但报告中缺少团队经理的分配。我有一个单独的表，其中包含团队经理的分配。棘手的部分是人们更换经理，而我必须将分数与经理联系起来，然后只有新的数据才会传输给新的经理。
我的想法是，我有一个查询选项卡，我将数据粘贴到其中。有一个列总是为每条记录显示"Item“，并不用于我的目的。所以我想如果我做了一个控制按钮，在if语句中运行一个VLOOKUP来拉取团队经理的分配，如果记录在指定的列中包含"Item“，那么VLOOKUP就会运行并用经理的名字替换工作"Item”。这样，如果有人更换了经理，它将保留与特定经理相关的分数。
问题:似乎宏在第一行
浏览 2提问于2018-12-09得票数 0
我正在努力做到以下几点：
Sheet1:用户单击运行VBA的按钮。
Sheet2: VBA选择D列上的第一个非空白单元格
范围(“D”& Rows.Count).End(xlUp).Offset(1).Select
Sheet1: VBA复制一系列值
工作表(Sheet1).Range(“E2:AJ11 11”).Copy
Sheet2: VBA将复制的范围粘贴到先前选定的活动单元中。
--我试着粘贴到活动单元格中的这个部分不起作用：
Worksheets("Results").ActiveCell.PasteSpecial xlPasteVal
浏览 3提问于2017-10-27得票数 0
回答已采纳
这是我第一次使用这个论坛，我的VBA技能不是很好的发展。我希望有人能帮忙。
我有两列数据，列A和列B。
列A -返回连续的“月份年”或0。如果电子表格当前日期(=now())小于2月，则2月的单元格返回0。
列B -我希望这个列检查A列中的每个单元格，如果A列单元格有日期标识符，我希望它放在B列中。如果A列有0标识符，我希望B列返回一个“空”单元格。
我这么做的原因是我正在绘制条形图。当我欺骗程序生成一个空单元格(x轴)时，图中没有显示那个月的任何数据(这正是我想要的)。尝试制作动态图，但我对VBA没有经验(只有C编程=/)。
浏览 0提问于2013-07-31得票数 0
我有一个excel工作簿，其中有几个数据透视表引用了工作簿中包含的数据。透视表引用的所有数据都包含在此工作簿(“版本1")中。
我想将此工作簿重命名为“版本2"，但当我重命名该工作簿时，所有数据透视表都引用了”版本1“数据。我希望数据透视表引用“版本2”中的数据。
我尝试了几种选项设置的组合，但我找不到一种设置组合可以自动将数据透视表的源引用更改为新命名的“版本2”。
我知道可以写一个vba脚本来解决这个问题，但我想知道是否有非vba的解决方案。
浏览 13提问于2015-04-10得票数 4
1回答
我已经编写了VBA代码，它在最后一个column.What的右边添加了一个新列，我想做的就是复制最后一列的公式，并且范围应该随着适当的列而改变。例如，我在最后一栏中使用了这个公式。
=$A$186+SUMPRODUCT($B$14:$B$160;C14:C160)+SUMIF($C14:C160;"<1")
我需要修改代码的"C“部分。
我试过这段代码，但没有用。
lastcolumn = Cells(1, Columns.Count).End(xlToLeft).Column
With ActiveSheet
.Cells(125, lastco
浏览 0提问于2014-08-19得票数 0
回答已采纳
3回答
我有一个Excel电子表格，在同一个选项卡上包含四个数据表。每列中的最后3列包含公式。
然后，我有一个vba代码，它在sql Server表中执行SQL查找，并返回一组列来更新这四个表中的每一个。
对于其中的三个表，数据被粘贴进去，表自动展开，公式被复制到表的末尾。
但是，对于第一个表，数据被粘贴进去，但表不会展开，因此，公式不会添加到表外的行中。
我到处寻找固定的东西，但没有任何乐趣。我搜索了数据提取VBA代码，但没有运气(代码是完全匹配的)，对表属性也没有兴趣。我还检查了选项菜单中的“键入时自动套用格式”设置，但似乎一切正常。
有没有人对我有什么建议？
谢谢,
大卫。
又一次大家好，
我很
浏览 3提问于2013-11-13得票数 2
由于Access 2003不像2007年那样具有控件锚定功能，我想知道是否有人知道一些VBA脚本或免费软件控件可以提供此功能？
浏览 0提问于2008-10-16得票数 2
回答已采纳
1回答
我正在使用Excel和VBA来分析大学作业中的一些数据。在我的大学，我可以从彭博下载，我这样做通过一个VBA代码。我在Excel中没有公式。
我的问题是，怎样才能得到价格和回报数据，这些数据都是根据股息进行调整的？
浏览 6提问于2017-01-11得票数 3
回答已采纳
我必须将Access VBA应用程序转换为VB.NET，并将VBA应用程序上的一个文本框(格式设置为RichText)接受来自Word文档的直接粘贴，包括其格式，并将其保存到Access数据库中。然后从数据库中读取HTML，并在检索时显示原来粘贴的HTML。我现在遇到的问题是，我可以使用web浏览器控件来正确显示数据库中的数据，但是RichTextBox提供了一个无效的文件格式错误。当我想编辑数据时，我会将web浏览器控件切换到后面，并将数据复制并粘贴到RichTextBox控件中，然后将RichTextBox控件放在前面。这很好，但是一旦尝试更新，数据就会被保存为RTF格式，而RTF格式不是
浏览 3提问于2013-05-03得票数 1
例如，我在A列中有输入数据，在B列中有一些复杂的公式作为A中数据的函数。A中有多少行数据取决于用户输入。它可以在2到100,000之间。传统上，我将用相同的公式填充B列的所有100,000行。但是，如果只使用两行A列，则会引入大量不必要的公式计算开销。
如果允许使用VBA，则只需编写一个“For”循环即可。但我想知道，如果没有VBA，这是否可能。
是否可以仅使用工作表函数动态添加/删除B列中的公式？
浏览 1提问于2015-02-03得票数 2
您好，我正在尝试编写一个宏，使我能够将第7206行到第7211行复制到另一个工作表上。然后继续行7200到7205。简而言之，在另一个工作表上颠倒数据的顺序。我可以在vba宏中使用什么逻辑来帮助我实现这一点？
浏览 0提问于2020-05-16得票数 0
我有三个数据验证列表，它们共享相同的名称列表。我们叫他们Name1，Name2和Name3。现在，我需要以分层结构构建这三个数据验证下拉菜单。比如，如果我在第一个数据验证列表中选择Name1，那么在第二个列表中只有Name2和Name3，然后在第二个列表中选择Name2，第三个列表中只有Name3。我怎样才能做到这一点呢？在这种情况下，我应该使用vba，还是有其他方法？
浏览 2提问于2016-05-25得票数 0
回答已采纳
在Excel VBA中，我可以使用RtlCopyMemory将变量的2D SafeArray中的每个元素移动到另一个变量的SafeArray中，这样元素就会被转置。 下面的VBA代码片段可以很好地解决这个问题(假设变量具有适当的值)： For i = 0 To TotalElems - 1
CopyMemory ByVal ptrDest + i * LenElem, ByVal ptrSrc + (Elems1D * col + row) * LenElem, LenElem
col = col + 1
If col = Elems2D Then
c
浏览 35提问于2019-02-27得票数 0
1回答
我正在使用VBA在excel中创建一个动态的工作表目录，我想动态地调整它的大小。如果添加了新数据，它确实会调整大小，但如果删除数据，则不会调整大小。这是我的代码：
Sub update_directory()
Application.ScreenUpdating = False
Range("Directory").Select
Selection.ClearContents
Range("AA1").Select
ActiveCell.Formula2R1C1 = "=TRANSPOSE(SheetNames)"
Sheet1.Calculat
浏览 8提问于2022-07-17得票数 0
回答已采纳
1回答
在所附表格中，我想通过VBA链接单元格内容。 列A包含应链接到列B中的单元格的内容，直到将新内容添加到A。 附表中的示例已缩短。桌子要长得多。我做了一张“之前”和“之后”的表格。 我的代码是从A链接到B，直到一个新值进入A。但是VBA总是接受B列中的最新值，而不是所有以前的值。 如何调整代码，使B中的所有值都链接到A，直到有新值进入A列？ Sub Linking_columns_until_new_values()
Dim arr
Dim z As Long
Dim txt As String
Dim ws As Worksheet
For Eac
浏览 13提问于2020-01-29得票数 0
关于使用VBA将单元格从一个工作表复制到另一个工作表，我有一个问题。
问题背景：
excel电子表格的Sheet1包含来自多个测试主体的标题和许多测试观察。每一行都是对每一主题进行一次审判的观察。每个试验对象都有固定数目的观察，即15行。我需要从指定的行中选择一个单独的单元格，并将它们复制到同一个工作簿的sheet2中。表2也将包含标题。对于VBA和一般的编程/脚本来说，我都是新手，对于如何做到这一点，我遇到了一些问题。下面是我试图操作的数据的类似示例。下面的数据集包含5列。研究对象编号是1111和2222。变量()的每个标题包含一个字母，例如VariableOne = "a"
浏览 0提问于2013-01-02得票数 0
回答已采纳
需要一种方法将电子表格数据粘贴到我的vba表单单元格中吗？
我有一个csv电子表格更新的新数据，我每天下载。我要复制此csv文件中的所有列，并将其粘贴到我的vba表单中的另一个工作簿的相应文本框中。
例如。
假设CSV文件有4列: Data、ID、Firstname、Surname
我只需复制包含4列的整行，并将其粘贴到我的vba表单中的正确4个文本框中。
我不想复制并粘贴每个单独的列，因为我有超过4列，我需要一个更快的方法，这样只需粘贴一次就可以将它们粘贴到正确的文本框中。这可以做到吗？
请帮帮忙。
谢谢
浏览 7提问于2015-01-10得票数 0
1回答
我想把三个值连到一个单元格里.200次。复制并粘贴=串联(D1，E1，F1)，然后更改数字200次将相当繁琐。我四处寻找其他人试图做这样的事情，他们的要求并不完全是我所需要的。
我尝试在串联()函数中使用ROW()函数，例如，=串联(D..ROW()、E..ROW()、F..ROW())。我知道..。不是在函数中连接值的正确方式。
如果它们是我可以做的事情，我可以这样做VBA或宏，这将很容易地连接到他们尊重的细胞值。
我正在尝试连接一个街道地址，一个城市名称和一个200个不同的人的邮政编码，如果这有帮助的话。
浏览 2提问于2013-11-21得票数 0
回答已采纳
我有一个数据集，作为估计小时数程序的输出，我正在用VBA编写程序，以便复制列中的值并将它们粘贴到工作簿中，我在输入框中定义了此人的姓名。问题是估计小时数输出表上的列中的行数发生了变化，而现在我的VBA在其中包含了硬编码的单元格。我想要做的是创建一个列的动态副本，它从单元格D13开始，并将列的副本向下复制到最后一个值，除非它向上移动一个单元格，因为最后一行包含总行。 下面是我到目前为止所拥有的代码 Option Explicit
Sub Copy_Method()
Dim bookIn As String
Dim bookOut As String
Dim X As
浏览 19提问于2020-01-22得票数 0
回答已采纳
我是vba新手，尝试编写一些代码，将一些组数据从受保护的工作簿复制到新的工作簿。 在我的源表中是一个分组数据列表，其中包含一些列，如COUNTRY、In、WIN、LOSS。国家的实体按地区分组。因此，在每个国家下都是可变数量的区域，其中包含subRevenue、subWIN、subLOSS。 我期望的是:对于一组已定义的国家实体(例如，德国和日本)我想将这些数据及其子数据(区域)复制到新的工作簿。 谁能给我提供一个通用的例子或有用的函数？ 提前谢谢你！(一个VBA Noob)
浏览 12提问于2019-04-16得票数 0
回答已采纳
2回答
另一个用户已经提出了以下问题。我有一个相同的问题变体。如果该行存在多个数据点，我需要知道最后一个数据值的列标题。下面的公式将返回第一个数据点<>“但我需要最后一个数据点，即<>”。请只使用非VBA公式.
=IF(COUNTA($E2:$T2)=0,"",INDEX($E$1:$T$1,MATCH(TRUE,INDEX($E2:$T2<>"",0),0)))
更新1：
因为我的问题不清楚，所以我发布了第二个例子
示例2
因为第2行，项04处有值1，所以Get项目名= Item 04。它是随机的，有大量的列(500)。
问
浏览 2提问于2015-11-09得票数 0
回答已采纳
我正在编写一个宏，它将根据表中的一些数据自动创建图表。但是，我需要使用的图表格式非常复杂(20列数据都以特定的自定义格式显示)，我不知道如何使用图表编辑器重新创建该格式，更不用说VBA了。
基本上，我希望能够以这种图表格式为例，以某种方式获得用于在VBA中直接创建这种格式的图表的VBA代码，这样我就可以在宏中包含此代码。
我正在考虑制作一个图表模板.crtx文件，并在用户下载它时将其与电子表格一起包含在.zip中，但是模板似乎只有在它们位于User\AppData\Roaming\Microsoft\Templates\Charts下时才能工作，我不想让用户不得不手动移动该文件才能使宏工作。或
浏览 1提问于2018-06-01得票数 0
我正在通过vba在excel中生成PPT演示文稿，一切都很好，除了我被要求自动设置电源点的背景(这不会是太大的问题)，但这将完成与一个图片，实际上是嵌入在宏上，所以我没有物理路径来引用图片，加上excel是根据用户的输入动态生成的。
所以..。有没有人做到了这一点:以编程方式从vba excel中设置幻灯片背景，并将图片嵌入到工作表中？
谢谢!
浏览 7提问于2011-08-02得票数 3
回答已采纳
2回答
我想用VBA更改单元格的日期格式，但我不知道。以下面的例子为例，A列是输入，B列是输出，这在泰国日历中是必须的.
我的目标是将Sheet1列A中的值提取到具有转换日期的许多页中.
浏览 2提问于2019-10-14得票数 1
回答已采纳
2回答
我想找到一种让Excel自动给我以下“间隔”的方法：
Month 1 2 3 4 5 6
Demand 1 0 0 1 0 1
'Interval' 0 0 0 3 0 2
“间隔”表示需求之间的月份数。这在某种程度上可行吗？我在Excel中找不到一个函数来完成这个任务。也许在VBA里有一条路？我需要这个作为克罗斯顿预测方法。
提前感谢您的时间和努力！
J. Rommers
浏览 1提问于2016-10-03得票数 1
回答已采纳
每个月，我运行一个VBA程序，用新的数据(从Excel文件中获取)更新上个月的数据表(在Power幻灯片上)。我使用以下VBA函数粘贴数据。
Function PastePcts(ByVal tbl As PowerPoint.Table,
ByVal oldRow As Long, ByVal oldCol As Long,
ByVal newRow As Integer, ByVal newCol As Integer)
'
' This function basically pastes data from Cell (oldRow, oldCol) of
浏览 0提问于2016-08-22得票数 1
回答已采纳
1回答
我有一个很长的模板文件，需要导入要填写的其他模板文档。每个小模板都有一个带有ActiveX标签的唯一标题，我想在导入后从主文件中操作它，因此不同部分的标题都由主文档定义。每个小模板都应该与其头一起导入，因为这是跟踪它们的版本号的地方。
我注意到有些不一致。例如，一个模板只有一个表，并且通过VBA、手动复制或使用insert:object工具来导入标头。另一方面，带有段落和标题的较长的模板确实会在前面提到的方法中的任何一个带来自己的标题。
我尝试给表模板赋予自己的标题，但这并没有改变问题。
有谁知道为什么它处理模板的方式不同，以及是否有一种强制导入标头的方法？
对于用于根据导入工具导入的参考代码
浏览 3提问于2022-05-18得票数 0
回答已采纳
在同一个工作表中，我只有一个表，每次添加新数据时，我都需要将该表的最后4列复制到同一表的右侧，以便添加新数据。主要原因是我总是希望保持相同的格式，而且有些列有下拉列表和公式。
我在下面的网站上找到了下一个代码。它对于复制/粘贴行非常有效，所以我尝试修改代码来处理列，但我无法管理。
我是VBA的新手，刚开始学习如何编程宏，所以我能做的任何反馈都将不胜感激。
Sub CopySelectionVisibleRowsEnd()
Dim ws As Worksheet
Dim mySel As Range
Dim lRow As Long
Dim lRowNew As Long
Dim lRowsA
浏览 1提问于2018-11-28得票数 0
回答已采纳
我正在寻找关闭所有打开的工作簿而不保存，然后打开另一个工作簿的VBA代码。
现在有人知道正确的VBA代码了吗？
我现在有了以下代码：
Private Sub Workbook_Open()
Dim WB As Workbook
For Each WB In Workbooks
If Not (WB Is ActiveWorkbook) Then WB.Close
Next
End Sub
这个我还没试过jet呢。我尝试创建一个宏数据，每天在同一时间启动，并关闭所有工作簿。然后打开工作簿并更新数据。
浏览 1提问于2015-02-27得票数 1
2回答
我正在尝试选择所有可见单元格的数据区域。
Range(Selection, Selection.SpecialCells(xlLastCell)).Select
我使用这个vba来选择工作表中的所有数据。
Range("A1:A" & Cells(Rows.Count,"A").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy
我试过这个方法，但没成功。
是否有其他方法可以使用vba选择工作表中的所有可见数据？
浏览 1提问于2016-07-28得票数 0
回答已采纳
我有一个Excel工作簿，它使用VBA代码打开另一个工作簿，将一些数据复制到原始工作簿中，然后关闭第二个工作簿。
当我关闭第二个工作簿(使用Application.Close)时，我得到一个提示：
您想保存剪贴板吗？
VBA中是否有绕过此提示符的命令？
浏览 5提问于2011-03-02得票数 21
回答已采纳
我是VBA的新手...我已经建立了一个报表和宏，但在一个工作表和另一个工作表之间复制和粘贴公式时被卡住了。 这是我遇到问题的代码的一部分…… Worksheets("Data Checks").Range("B11").Copy Worksheets("Items By Location").Range("Y2") 所以我想把下面的公式从Worksheets("Data Checks").Range("B11")复制到Worksheets("Items By Location").
浏览 65提问于2019-10-07得票数 2
回答已采纳
我已经通过VBA创建了一个备份访问后端数据库，这非常容易。对于另一个Access项目，后端在SQL Server中创建，前端在Access中创建，现在我想知道是否可以直接从VBA创建Server数据库备份？
重要的是备份是在我之前指定的不同路径上创建的。
浏览 10提问于2022-03-19得票数 0
2回答
因此，我试图从其他封闭工作簿中动态地将数据插入到Excel表中。
我把一切都做得很好，除了一件令人讨厌的小事情。
我有一个公式如下：
=‘H：\开发.一些书name.xlsmMain'!C1
上面的公式很好用。我需要的是将这个完全相同的公式插入到工作表中的几行表中。
在一栏中应该是这样的：
=‘H：\开发.一些书name.xlsmMain'!C1
=‘H：\开发.一些书name.xlsmMain'!C1
=‘H：\开发.一些书name.xlsmMain'!C1
excel所做的是，它自动地将所有单元格引用更改为增量，如下所示：
=‘H：\dev.
浏览 0提问于2015-04-14得票数 0
回答已采纳
我的数据目前采用以下格式(我可以移动它以最适合这个目的，但我想知道这是否有可能首先)。
CELL1 CELL2 CELL3 CELL4 CELLn
ITEM # MATERIAL # MATERIAL # MATERIAL
这方面的一个例子可能是：
A B C D n
Tacos 5 Tortillas 6 Garlic 4 Onions 3 Peppers
Banana // These cells are empty because Banana
浏览 1提问于2016-07-16得票数 1
回答已采纳
我是宏的新手，正在尝试设置一个宏来将一系列数据更新到另一个电子表格中。
在第一周，我需要将其复制到B列(范围B2:B19)的主汇总表中；在第二周，我需要将其复制到C列(范围C2:C19)的主汇总表中，而不是在前一周过夜。
这是VBA代码(不起作用！！)我敢肯定这是simple...but，不适合我。
Sub Andy()
'
' Andy Macro
' Andy Update Score
'
'Copy range to clipboard
Workbooks("Weekly Master.xlsx").Worksheets(
浏览 0提问于2021-03-31得票数 1
我有一个包含10列的工作表，数据范围为A1:J55。列A有发票编号，其余列有其他人口统计数据。目标是在单元格上键入发票编号，并显示与列A中的发票编号匹配的所有行。
除了自动过滤功能，我唯一想到的就是VBA。请建议什么是获取数据的最佳方式。提前感谢您的帮助。
浏览 0提问于2013-02-13得票数 2
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
