使用VBA将函数/代码应用于工作表中的每一行
VBA（Visual Basic for Applications）是一种用于自动化任务和定制化应用程序的编程语言。它可以与Microsoft Office套件中的各种应用程序（如Excel、Word、PowerPoint等）进行集成，使用户能够通过编写宏来自动执行各种操作。
在Excel中，可以使用VBA将函数或代码应用于工作表中的每一行。以下是一个示例：
- 首先，打开Excel并按下Alt + F11打开VBA编辑器。
- 在VBA编辑器中，选择插入 -> 模块，以创建一个新的模块。
- 在新模块中，编写一个子过程（Sub）来处理每一行的操作。例如，下面的代码将在每一行的A列中添加一个前缀：
Sub ApplyCodeToEachRow()
Dim lastRow As Long
Dim i As Long
' 获取最后一行的行号
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
' 循环处理每一行
For i = 1 To lastRow
' 在A列中添加前缀
Cells(i, 1).Value = "Prefix " & Cells(i, 1).Value
Next i
End Sub- 在VBA编辑器中按下F5运行该代码，或者在Excel中按下Alt + F8选择并运行该宏。
- 代码将在每一行的A列中添加一个前缀。
这是一个简单的示例，演示了如何使用VBA将函数或代码应用于工作表中的每一行。根据具体需求，你可以编写更复杂的代码来处理不同的操作。
VBA在Excel中的应用场景非常广泛，可以用于数据处理、报表生成、自动化任务等。腾讯云提供了云计算服务，其中与Excel相关的产品是腾讯文档（https://cloud.tencent.com/product/txcos），它提供了在线协作、文档编辑和数据处理等功能，可以与Excel进行类似的操作。
相关·内容
我在Excel中拖动以填写公式时遇到问题。我在行中有公式，这样每一行都有一个引用其他工作表上的行/单元格的不同公式。
假设在工作表1上，单元格C2:C9中的公式从单元格C4、G4、H4等提取工作表2中的数据。如果我突出显示工作表1单元格C2:C9，然后单击向下拖动以形成单元格C10:C17中的另一组公式，则单元格C10 :C17中的公式会更改其引用8行，因此，如果工作表1 C2从工作表2 G4中提取数据，则工作表1 C10中的下一个类似公式将从工作表2 G12中提取数据。
这就是我遇到的问题；不是公式改为每8行引用一次，我如何才能使它只更改1行呢？或者，对于拖动和填充的每一组新公式，仅将这些公
浏览 9提问于2017-08-24得票数 0
我正在写一个Excel宏来发送电子表格中数据的电子邮件。数据在一个表中，每一列都提供不同的变量来创建电子邮件( to：、cc：、subject、附件等)。
我有一个宏来做我想做的事情，就在桌子的一行上。我的问题是：
如何对VBA代码进行缩放，以便为表的每一行工作？我希望每一行都有一个超链接来使用该行中的数据运行宏。下面是我的代码的一个小片段，作为示例：
Sub SendMail()
Dim xContractNumber As String
xContractNumber = Worksheets("Program Info").Range("L10").Val
浏览 1提问于2019-12-04得票数 1
回答已采纳
我正在创建一个Access数据库，希望能对VBA提供一些帮助。
我需要帮助，
我有一个Excel工作表，其中包含需要添加到Access中现有表中的数据。VBA中是否有一种方法可以逐行添加excel中的数据？
对于Excel中的每一行，我需要：
1：检查Access表中是否已经存在sample_number，如果存在，则执行一些操作。
2：如果sample_number还不存在，那么将该行从excel复制并粘贴到Access表。
现在，我被困在如何逐行处理excel电子表格，而不是一次性导入整个工作表。
帮助是非常感谢的！谢谢
浏览 1提问于2017-07-19得票数 1
回答已采纳
1回答
我对在excel工作簿中使用VBA非常陌生。
我偶然发现了@曼哈顿作为对另一个问题的回答而提供的一段代码。它非常适合我的工作簿的需要，但我需要帮助建立一个动态范围。
我现在要做的是，让代码只填充足够多的行，以便与P列(这是下面代码正在从中提取数据的枢轴表的行标签列)中的行相匹配，除了最后一行(总是“总计”)？
Sub FillDown()
Dim strFormulas(1 To 3) As Variant
With ThisWorkbook.ActiveSheet
strFormulas(1) = "=SUM($Q3:$S3)"
浏览 1提问于2017-11-06得票数 0
回答已采纳
我希望保存服务器调用，并尝试在其他操作之前将工作表加载到内存中：
var ss = SpreadsheetApp.getActiveSpreadsheet();
var sheet = SpreadsheetApp.getActiveSpreadsheet().getSheetByName("Condo1");
var allSheetData = sheet.getDataRange().getValues(); // load all sheet data into memory
var lastRow = allSheetData.getLastRow();
但是网络
浏览 0提问于2021-02-06得票数 1
回答已采纳
我有一些我在VBA中使用的代码，我正在通过VBA表单将数据输入到excel工作表中，该表单将同时垂直和水平地填充excel工作表，但每次我输入一个字母时，它都会跳到下一列和下一行，而不是在表单中提交之前完整输入单词。我该如何解决这个问题呢？
Private Sub txtLocation_Change()
Dim ws As Worksheet
Set ws = Worksheets("Location")
Dim newRow As Long
newRow = Application.WorksheetFunction.CountA(ws.Range("
浏览 0提问于2018-01-25得票数 1
我正在用Excel 2013中的VBA编写一个方法，循环遍历两个工作表中的行，并比较每一列中的文本。当我运行我的代码时，我发现代码遍历整个工作表，而不仅仅是包含数据的行。
Excel.Sheets("Sheet1").Cells.SpecialCells(xlCellTypeLastCell)在正确的列中返回单元格，但该行是工作表(1048576)中的最后一行，而不是带有数据的最后一行(1951年)。
我已经为空单元格写了一个检查(因为我不能确定是否使用了有效范围内的每一行)，所以它不会导致任何错误，但是由于这个方法是从Worksheet_Change内部调用的，所以它确实减慢
浏览 0提问于2014-08-04得票数 3
回答已采纳
我有一本有很多工作表的工作簿，每个工作表都有不同数量的相互关联的方程。我有一个工作簿宽的VBA计时器，应该每5秒运行一次。
当我在一个没有很多公式的工作表上活动时，它似乎每5秒运行一次.但是，如果我随后将活动表更改为更“繁忙”的工作表，则vba计时器就不会停止.或者如果它真的爆炸了，那就像几分钟后。直到我再次切换到一个不那么繁忙的工作表，然后计时器奇迹般地正常运行，而不需要重置任何东西。
我在繁忙的表格上没有任何特殊的VBA代码.我不明白为什么VBA计时器代码不能在所有的工作表上一致运行？如果计时器要受影响，则应该对所有工作表而不仅仅是特定的工作表进行影响。
下面是VBA计时器代码：
Sub
浏览 3提问于2015-08-20得票数 4
回答已采纳
3回答
我有一个Excel电子表格，在同一个选项卡上包含四个数据表。每列中的最后3列包含公式。
然后，我有一个vba代码，它在sql Server表中执行SQL查找，并返回一组列来更新这四个表中的每一个。
对于其中的三个表，数据被粘贴进去，表自动展开，公式被复制到表的末尾。
但是，对于第一个表，数据被粘贴进去，但表不会展开，因此，公式不会添加到表外的行中。
我到处寻找固定的东西，但没有任何乐趣。我搜索了数据提取VBA代码，但没有运气(代码是完全匹配的)，对表属性也没有兴趣。我还检查了选项菜单中的“键入时自动套用格式”设置，但似乎一切正常。
有没有人对我有什么建议？
谢谢,
大卫。
又一次大家好，
我很
浏览 3提问于2013-11-13得票数 2
问题1:我尝试用以下公式在sheet2 A1中格式化sheet1中的单元格A1 (颜色格式)：
=Sheet2!A1>0.5
excel警告您不能将其他工作表或工作簿中的公式用于条件公式。
这个问题有没有VBA的解决方案？
问题2:在寻找问题1的替代方案的过程中，我可以用以下方式重新排列数据(我有6000列)
Sheet3$A1 = Sheet1$A1, Sheet3$B1 = Sheet2$A1
意味着工作表1中的第一列和工作表2中的第一列将是工作表3中的第一列和第二列。是否有任何简单的解决方案，例如使用vba。
完成后，我想成对地应用条件格式
一列格式化基于B，C列格式化基于D co
浏览 3提问于2011-10-20得票数 1
回答已采纳
1回答
我希望在指定表的每一行中执行目标搜索。下面的VBA代码成功执行了GoalSeek。 Sub GoalSeek()
Dim lo As ListObject
Dim rw
Set lo = Sheet1.ListObjects("Table1")
For rw = lo.DataBodyRange.Rows.Count To 1 Step -1
Range("M" & rw).GoalSeek Goal:=Range("N" & rw).Value, ChangingCell:=Range("E" &
浏览 49提问于2021-08-14得票数 0
回答已采纳
当VBA宏按钮(而不是AcitveX按钮)被快速连续单击时，Excel“有时”会崩溃。
VBA代码大量使用对象模块，因此我认为这是一个垃圾收集问题。在退出按钮之前，我显式地将顶层对象设置为空，单击宏，认为它会强制垃圾回收。那不起作用。
这是非常令人沮丧的，因为它是间歇性的。也许每10到20次就有1次。
所显示的代码只是单击处理程序的按钮。从这个处理程序中调用了大约10,000行代码，我没有显示这些代码。VBA代码从工作表中读取信息，进行一些计算，更新工作表上的excel图表，并将一些数据写入工作表。我做通常的关闭事件和屏幕更新。
我只是希望其他人已经遇到了快速的宏观执行，导致excel崩溃。再
浏览 0提问于2019-06-21得票数 0
回答已采纳
$('tr > td:gt(0)').filter(function() {
return this.innerHTML.match(/^[0-9\s\.,]+$/);
}).css('text-align','right');
我试图循环遍历一个动态表，并向右对齐每一行中包含数字数据的每个td，但每行上的第一个td除外。
它在第一个tr上工作，但不是后面的每一行..。
浏览 1提问于2014-03-29得票数 1
回答已采纳
4回答
我试图在VBA中做一个拷贝，作为一个更大的宏的一部分，所以它需要在VBA中，一个特定工作表中未知的范围。
如果我在工作表中，我有这样的代码：
Sub Copy()
Range("O2", Range("O" & Cells(Rows.Count, "A").End(xlUp).Row)).copy
End Sub()
下面有一个特定范围的工作：
Sub Test()
Worksheets("Data").Range("O2:O10").Copy
End Sub()
如何使第二段代码不特定地工作。
谢
浏览 1提问于2018-09-28得票数 1
回答已采纳
2回答
我正在尝试写在我的Excel工作表上工作的VBA代码。
Range("A65536").End(xlUp).Row给出了最后一个非空单元格的行号。类似地，我正在尝试获取该特定列中第一个非空单元格的行号。提前谢谢。马德胡
浏览 4提问于2010-06-03得票数 0
回答已采纳
2回答
复制和粘贴非零行和相邻单元格
、、、、
我正在处理大量的GIS元数据，这些元数据都是我导入到Excel中的，其中有许多行和列的空白值或零值。我试图获取这样的数据：
(左列为名称，右边列为与该名称相关联的值)
并且仅通过选择具有值的列，最终得到一组新的表，其中显示非零行及其左侧对应的名称：
我尝试通过过滤表中的数据，使其只显示非零值，复制该列和最左边的列，并将其粘贴到新的工作表上。这是很容易的，如果我只有几个专栏，但考虑到我的数量，它是非常艰苦的。我必须分别过滤每一列，因为每列中的行可能有或可能没有空格或零，这取决于列。
是否可以使用查找函数，或者使用VBA更好？
浏览 3提问于2015-10-22得票数 0
回答已采纳
我在Excelto中构建一个宏，针对一组数据运行规则，并输出每一行是否传递规则。我希望能够在不改变宏的情况下添加、删除或更改规则。因此，我有一个数据工作表和一个规则工作表，宏生成输出工作表，然后填充它。
设置规则，以便在不同的行上枚举每个不同的规则。为此，我需要能够在“关于规则”中输入与规则相关的实际VBA代码，然后让宏查看关于规则的那一列，并在单元格中执行代码。
简单的例子我的设置-
数据有: ID，Dividend1，Dividend2，除数。数据上有n行。
数据行的一个例子可能是ID="123“、Dividend1=5、Dividend2=7、Divisor=35。
浏览 3提问于2013-05-23得票数 1
回答已采纳
在这种情况下，我有一组预定义的值/代码，在组合中可以产生一些信息。我也有一个传入的文件，我必须分析代码，比较集合与预定义的值。问题是传入的文件与我的库不完全匹配：
在我的库中，我设置了4列，每一行都有其独特的含义。我想得到一个字符串的意思，以便进一步进行计算。问题是传入的文件不一致。它不像预定义的文件那样遵循精确的顺序。
不管顺序如何我都需要比较它们。在被匹配之后，我想从库中获取相应的意义，然后继续处理我的文件中的案例。
有什么想法可以在VBA中实现吗？
浏览 2提问于2019-11-10得票数 0
回答已采纳
我在Excel中遇到了一个问题，我不知道如何解决。
上图中有两个表格。
表1是个人之间交换礼物的清单，送礼人和接受者已确认。(我用“礼物”和“人”来使这里的讨论更容易。实际上，这些都是交换控制信号的设备。这个表可以有数百行长。)
表2，E和F列，是一个独特的人对的列表(无论给者和接收者)。我已经写好了搜索A和B列的公式，并且只返回E和F中的唯一对。现在，对于每一对唯一的一对，我需要归还G栏中两个人之间交换的所有礼物(我手动输入了G列应该包含的内容和工作公式。
我甚至不知道从何说起这个问题。G3栏的公式应包含如下内容：
=and(or(B3=$E$3,C3=$E$3),or(B3=$F
浏览 21提问于2022-12-02得票数 2
回答已采纳
所以我正在试着做一个计算器。计算器将根据公式输出值，取决于输入是在哪一列中找到的…我有3个不同的列，都有电子邮件地址在他们。这个想法是，你输入你的电子邮件地址，它会查找你的电子邮件，并在A、B或C列中找到它。然后，它会根据你在哪一列做一些求和，以及其他一些事情(计算方法每列都会改变)。
我该怎么做呢？另外，还有一个更基本的问题:如何在VBA中引用工作表？( vba在表2中，而它查找的数据和sums等在表1中)。
我希望这足够具体，我没有任何代码来开始我们，主要是因为我不知道从哪里开始，也不想用糟糕的构造代码来限制自己。
另外，我被告知这可以在没有VBA的情况下完成，使用一些鲜为人知的内置fun
浏览 0提问于2014-07-14得票数 0
我试图编写一个循环，从主工作表的一个页面中提取每一行，并将每一行放在相应的工作表中。例如，工作表1上的第A1:A10行将被复制并放在工作表2上的A1:A10上，而在工作表3上，A1:A10值将来自工作表值A2:A10。但我的问题是，我无法找到正确的语法来循环我的循环使用范围和单元函数。
我的守则：
'i is set to the first worksheet I am writting to
'wsCount is set to the last worksheet I want to write to
For i = 2 To wsCount
Worksheets
浏览 3提问于2015-01-17得票数 1
回答已采纳
我希望使用“列名”从一个Excel工作表中复制数据，并使用VBA将该数据粘贴到具有相同列名的另一个工作表中。我正在使用Excel 2016。
我不想在复制数据时使用列字母作为参考。我想使用列名，因为我的工作表一直在变化。
浏览 0提问于2018-05-26得票数 0
回答已采纳
在刷新jQuery的容器div之后，我尝试应用它的datatable结构。
我有一个div，其中有datatable。对于第一次访问，它工作正常，但是在单击事件按钮时，我正在刷新它的父div。在那之后，我期待数据表结构在表上，但它不起作用。
<div id="students">
<table id="studTable" class="table fullwidth data">
<thead>
<tr>
<
浏览 0提问于2018-07-19得票数 0
回答已采纳
我正在尝试使用vba进行一些数据挖掘。我有excel电子表格，并编写了从行中选择数据的代码。每一列都有不同的变量，但行表示该特定集合的所有变量。
我想编写一个for循环，用于选择一个单元格并将该单元格的值分配给一个特定的变量。
计数器=7至57
Ca =工作表(“sheet1”).Cells(g，计数器)
什么样的语法才能正确地将细胞g7的值分配给可变的Ca？
谢谢你，AJ
浏览 2提问于2012-05-21得票数 0
我是VBA的新手，我需要帮助应用下面的VBA代码到两个具体的工作表by Region和by Model。代码只是找到最后一列，它的名称是total for the year，并将前几个月的值复制到一个新列中。如果在每个工作表上单独执行代码，则代码运行良好。
Sub Insert_New_Col()
Dim R As Range, BeforeR As Long
'Find 'Totals' in row 5 of active sheet
Set R = Rows(3).Find(what:="Total for the Year", lookat:
浏览 0提问于2019-12-17得票数 1
2回答
是否可以将我需要应用于列的公式保存或应用于列标题或某种类型的元数据，以便在我向Excel表添加新行时将公式应用于这些列？
场景：
我正在创建一个模板表，它一开始没有行。在单独的表(或同一张表)上，一旦用户选择了要在表中生成的行数，我就会使用VBA向表中动态添加行。
我的想法是，我可能在开始时表中没有任何行，或者用户可能已经手动删除了行。当我以编程方式添加新行时，我希望公式也应用于单元格。我使用的大多数公式都是这三种类型中的一种：
结构化的表格引用，Excel函数，如SUM，AVERAGE等和自定义函数名称。
更新：
以下是我尝试过的方法：
1>尝试将该公式应用于标头本身。结果:由于#RE
浏览 2提问于2014-09-09得票数 3
1回答
我有5个工作表：(1)摘要(2) 2020 (3) 2019 (4) 2018 (5) 2017
在我的“摘要”工作表中，A列中每个单元格都包含每个工作表的名称(A1: 2020、A2: 2019、A3: 2018、A4: 2017)和B列，每一行的编号为"1“。
假设我删除了"2019“工作表，使其不再介于工作表"2020”和"2017“之间--我是否可以在第2行中使用任何公式来标记？也许是通过B列的"if(..,1,0)“公式？我不想使用VBA。
浏览 3提问于2022-04-13得票数 2
设置：
使用ACCESS 2010 VBA在Excel中创建工作表。下面的问题已经在处理导出的excel文件；
问题：
我有下面的代码(也尝试了不同的代码)，但遗憾的是，它正在更改整个电子表格中的每个"-“for "_”，而只在提到的单元格中更改。我不知道为什么会发生这种事。
For i = 2 To k
If Cells(i, 15).Value Like "*" & "-" & "*" & ":" & "*" Then
Cells(i, 15).Replace W
浏览 0提问于2018-05-10得票数 0
回答已采纳
我希望用存储过程从表中导出数据，存储过程是在插入数据的SQL使用任何数据插入表时触发的。
当我使用pgAdmin控制台的查询工具执行一些SQL插入数据时，它已经工作了。我可以看到从表导出的文件。
我编写了VBA代码，用ADO将数据插入到该表。
当将一些数据插入到该表时，它可以在没有存储过程的情况下从该表导出文件。
我的意图是：
使用VBA，将数据插入表存储过程，该存储过程用于将数据作为文件从该表导出。
从控制台(如pgAdmin查询工具)，它可以工作。
从Excel文件的VBA中，它无法处理它可以为服务器创建文件的消息。
没有存储过程，VBA将数据插入到表工作中。
问题是我需要一个文件。
我猜
浏览 4提问于2021-09-08得票数 0
尝试使用VBA项目(1个UserForm，5个类模块，1个标准模块)处理受保护的工作簿(我可以访问密码)
我真的很困惑如何在VBA中正确处理受保护的工作表。
我试着做了一个
ActiveSheet.Unprotect PWD
在方法调用之后，使用
ActiveSheet.protect PWD
也尝试过
ActiveSheet.protect PWD, UserInterfaceOnly:=True
从Workbook_open sub
问题是随机性的，就像保护恢复到受保护，我的VBA项目中对实际电子表格进行更改的部分崩溃了。
如果我暂停调试器，重新检查并手动取消对工作表的保护，然后单击con
浏览 3提问于2018-10-10得票数 1
2回答
我试图将所有单元格中的所有字母转换为大写字母，这些单元格保存着B2列和下列中的数据。拿到这个VBA了。
Sub CapitalLettersColumnB()
'Capital Letters to names in column B (from B2 and down)
'Column B holds headers!
With Range("B2", Cells(Rows.Count, "B").End(xlUp))
.Value = Evaluate("INDEX(UPPER("
浏览 4提问于2019-11-22得票数 1
回答已采纳
我有一个excel工作表，在这个工作表中，我需要在用户输入范围的时间列中填充一个单元格范围，时间间隔也是如此。
我可以使用For循环来实现这一点，但是有可能存在~50000+单元，并且向每个单元格写入需要很长时间。
我认为在VBA中有一种方法可以通过创建一个范围大小的数组，填充这个数组，然后将数组复制到工作表中来实现这一点？我对通用C风格的编程相当熟悉，但不太熟悉VBA。
如果在A1包含开始单元格(例如1)和B1包含结束单元格(例如100)、A2包含开始时间(00:00:00)和B2包含时间间隔(00:05:00)的情况下，如何使用VBA填充单元格D1:D100 (例如00:00:00，00:
浏览 1提问于2013-12-29得票数 1
回答已采纳
关于使用VBA将单元格从一个工作表复制到另一个工作表，我有一个问题。
问题背景：
excel电子表格的Sheet1包含来自多个测试主体的标题和许多测试观察。每一行都是对每一主题进行一次审判的观察。每个试验对象都有固定数目的观察，即15行。我需要从指定的行中选择一个单独的单元格，并将它们复制到同一个工作簿的sheet2中。表2也将包含标题。对于VBA和一般的编程/脚本来说，我都是新手，对于如何做到这一点，我遇到了一些问题。下面是我试图操作的数据的类似示例。下面的数据集包含5列。研究对象编号是1111和2222。变量()的每个标题包含一个字母，例如VariableOne = "a"
浏览 0提问于2013-01-02得票数 0
回答已采纳
2回答
我有一个包含2个工作表的Excel工作簿。VBA代码会将CSV文件加载到第一张图纸中。然后，VBA代码将第一张图纸中的数据绘制到第二张图纸中的图表中。此VBA代码每5秒运行一次，并导致图表闪烁。
有谁有什么建议来防止闪烁吗？我试过了
Application.ScreenUpdating = False
而且它也没有帮助。
浏览 16提问于2015-04-08得票数 0
我有一个工作簿，它有许多表示项的工作表，这些工作表中有许多选项来标记这些项的属性。还有一个中央表格，它总结了项目的属性。
例如，让我们说我们有两张床单，一张叫猫，一张叫狗。如果您填写了相关选项，它将像这样出现在摘要表中(如果您可以想象每一行都是Excel中的一行)：
猫
名称: Squiggles
颜色:黑色
腿:4
狗
名称:低音炮
颜色:白色
腿:4
目前，您可以使用带有一些勾选框的“项选择”工作表来选择出现在最后摘要中的项目。对于上面的例子，猫和狗都会被勾选，如果不是，它就不会出现在最后的摘要中。
这是通过隐藏猫摘要将出现的确切行来实现的。这意味着，如果在此基础上添加任
浏览 4提问于2014-09-18得票数 0
回答已采纳
我想在LibreOffice BASIC上运行下面的Excel代码，这会导致一个基本的运行时错误'423‘单元。如果我在不同版本的LibreOffice Calc (桌面版本)上运行相同的VBA代码，它实际上是工作的。
我已经知道BASIC对VBA语句(Option VBASupport 1)的支持有限。也许，桌面LibreOffice有更多的支持，因此它确实在那里工作，而不是在Raspberry Pi上工作。我还看到错误来自于这一行代码：eRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row。
代码所做的是搜索表的下
浏览 2提问于2020-07-06得票数 0
我在(vba查找)问题上有一些困难。
我有一个工作表(sheet3)，它有多行不同发票的数据(每一行数据包括与之相关的发票号)。
我已将独特的发票号码复制成单独的单张，每一张发票都有自己的发票单，发票号在单元格B1.中。
我要做的是将数据表中的所有行复制到带有匹配发票号的工作表中。
对于我当前的代码，我所拥有的是我的独立发票页面链接，而不是使用Vba来创建它们，因为页面上会有各种其他格式和公式，所以我几乎从零开始我的问题！
Private Sub CommandButton1_Click()
Dim s1 As Worksheet, s2 As Worksheet
Se
浏览 0提问于2016-05-10得票数 0
回答已采纳
3回答
我有一个工作簿，打开后，将使用的单元格转换为一个表，然后将不同的公式注入到每一列中。我正在注入公式，以节省文件大小，通过预拖公式比需要的更远的爆炸。我必须这样做的VBA工作得很好，但是速度非常慢。我已经运行了性能检查，并且可以确认慢度是由公式注入引起的(每秒只能注入141行)。我已经完成了基本的计算/屏幕更新相关优化。还能做些什么来加速下面的代码？(注一已缩减至守则的有关部分)：
Sub OptimizeVBA(isOn As Boolean)
Application.Calculation = IIf(isOn, xlCalculationManual, xlCalculationAut
浏览 7提问于2020-01-08得票数 0
回答已采纳
1回答
我有一个电子表格来跟踪通过车间的工作，在一个单独的工作表上，我有一个宏，它将只显示实时工作。为了确定要显示哪些作业，我在主表上使用了如下的if语句公式： =IF(NW3="complete","0","1") 因此，如果作业被列为已完成，它将显示一个0 然后，我编写了VBA代码，它将检测正确列中的每一行是否包含1，如果包含1，它将复制该行并将其粘贴到实时作业工作表中。但是，VBA循环代码无法识别IF语句生成的数字。 我知道我的代码可以工作，因为如果我在列中手动键入1或0，而不是使用上面的if公式，VBA代码会找到所有结果。我还执行了一个随机=S
浏览 15提问于2019-02-12得票数 1
1回答
您好，我希望能够使用VBA将字符串的最后8个字符剪切并粘贴到另一个工作表的表中，然后返回到该字符串，然后将下8个字符剪切并粘贴到我的表中的另一列中，依此类推，直到字符串中没有任何剩余内容，就像它对于非常长的电子表格一样，所以我希望能够循环通过每一行。有什么办法吗？
浏览 2提问于2017-11-20得票数 0
我有一个在sheet1中的单元格中调用函数的工作表。当我切换到sheet2，编辑一些东西并返回到sheet1时，我会看到值的变化(因为我使用了ActiveWorkbook和ActiveSheet)。如果我在sheet1中做了什么，值就会返回。
我也可以用同样的数据拥有多本工作簿.
编辑:我忘记指定工作簿和工作表的名称不是静态的，一切都是动态的。
编辑2:我认为Excel在编辑工作表和执行VBA代码时会刷新所有工作表，但是活动表不是数据所在的Sheet1 .因此，VBA代码在错误的工作表中运行。
编辑3:工作表有“计算选项”到“自动”，我在Excel页面底部有一个按钮“计算”，以强制刷新所有公式
浏览 5提问于2017-07-14得票数 0
回答已采纳
我是VBA的新手，我一直想在VBA中做以下的事情，如果可能的话
指向CSV文件循环，使用每行的第一个值遍历每一行--将行的其余部分存储在特定的工作表中。
我成功地做到了第1点和第2点，然而，我正在为第3点而奋斗
例如:我的CSV文件如下所示：
A00,5675,TGI,6897
R88,7647,35968,35864
R88,5968,34531,44566
Z11,2245,FGH,YIU
我想读取每一行的第一个值，在本例中是A00、R88、R88和Z11。
然后根据值将该特定行写入相应的工作表。
例如，A00行将被写入名为A00的工作表，以此类推。
我已经走了这么远以供参考：
Sub I
浏览 1提问于2020-04-30得票数 0
回答已采纳
我试图在运行时更改工作表，因此我用VBA编写了以下代码：
Dim Item As Variant
Dim Info As Variant
Dim Stat As Integer
Stat = 2
Dim Line As Integer
Line = 1
Item = "Cases"
Sheets(Item).Activate
Do
Line = Line + 1
Loop While Cells(Line, "B") <> Null
Do
Info = Cells(1, Stat)
Info
浏览 1提问于2019-11-18得票数 0
回答已采纳
我有一个带有VBA代码的工作表，其中包含许多变量和常量，我甚至想在另一个工作表的VBA代码中使用这些变量。不幸的是，代码在工作表之间拆分，并且需要共享变量和常量作为输入参数。在VBA中是否可以使用excel？
浏览 22提问于2013-08-01得票数 1
2回答
用于循环语法的
、、
在python中，我在正确执行for循环时遇到了困难。
基本上，对于dataframe (df_weather)中的每一行，代码应该从第13和14列中各选择一个值，并执行代码前面定义的函数。最后，我需要对每一行的计算值进行求和，才能给出一个最终答案。
返回的错误如下：“字符串索引必须是整数”
请任何人帮助我度过这一步。同样的代码如下所示。
谢谢!
stress_rate = 0
for i in df_weather:
b = GetStressDampHeatParameterized(i[:,13], i[:,14])
stress_rate = b + stress_ra
浏览 2提问于2016-11-01得票数 2
回答已采纳
我的Excel工作表中有一个单元格，我需要每5秒刷新一次此单元格。
MS Excel本身支持设置刷新，但它仅每1分钟一次，这是不够的太长时间。
我需要VBA或宏中的一些代码设置为每5秒运行一次，并执行如果我每5秒单击一次刷新就会执行的操作，如下所示：
不知何故，我没有找到任何这样的例子，我完全不知道如何做，因为我不知道如何在VBA中工作。
浏览 98提问于2016-10-23得票数 3
回答已采纳
我有两张床单：
表1 :由三列组成(Status，Cost，Version)
Sheet 2 :用作带有两列的操作页(，版本号)。
问题：
我希望在第2页的第二列中设置版本号，并让公式或按钮使用VBA代码执行以下操作：
用户在第2列版本号表2中设置值= 5
系统从版本号单元格获取值。
系统搜索工作表1列版本中包含版本号值= 5的所有行。
系统将Status列中的每个单元格替换为具有版本的 value= 5，并使用Status Value =“传递”。
任何帮助请抛出公式或使用VBA代码。
问候
浏览 0提问于2018-11-21得票数 0
回答已采纳
对VBA的尝试来说真是太新鲜了。我想获取以下数据，并将每一行与另一个工作表中的数据连接起来。基本上，我希望下面的初始列表中的每一行与第二个列表中的每个位置范围相对应。我想知道如何对第一个列表中的任意多行这样做，只要行中有数据。
初始列表
位置列表
浏览 4提问于2022-06-07得票数 -1
据我所知，这是一个(据我所知) 没有涉及的主题(对于那些希望在Excel中使用宏以编程方式将代码插入到新工作表/工作簿或现有工作表/工作簿中的人来说，这是一个非常好的资源)。
我目前的Sheet1包含一系列四到五个独立的子宏，这些子宏执行当前不相互影响的功能。我已经写了一个宏，当用户按下按钮激活时，它会创建一个新的工作表，并在该工作表上插入几行代码(此任务已经完成并正常运行)。
我的目标是在这个过程中添加一行代码，这样一旦执行了上面的操作，“第XYZ#1行代码”就会被添加到这个CodeModule中的特定过程中，即"Sub MacroMain()“。
我目前能够(几乎)使用以下命令实现
浏览 0提问于2016-08-16得票数 2
回答已采纳
我正在使用一个VBA脚本来查找/替换。现在，当我运行VBA脚本时，它适用于工作簿中所有打开的工作表。我希望VBA脚本只在活动表中应用，而不碰其他的。
下面是我当前的宏代码：
Sub ReplaceCC()
'
' ReplaceCC Macro
' Add CC to Distributor, Reseller, Government and Retail.
'
'
Range("A1").Select
Cells.Replace What:="Distributor", Replacement:="Distri
浏览 3提问于2014-02-26得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
云直播
对象存储活动推荐
腾讯云开发者
