从某个条件删除命名范围的行
在我之前的帖子中：从所有的数据某些表的书籍我已经问过如何从EXCEL中的所有打开的书籍中获取一些数据。 但是有一些问题。我不知道如何检查命名范围中列名“Id”的值是否为“0”。如果有的话，它不应该添加到最终表中。我可以这样做吗？ 所以在我得到命名范围值后： 设置Rng = iList。[表] 我需要清理它 i = 1 对于每行在Rng.Rows 设置单元格=
..
Office
VBA脚本从网站提取数据
我想从 http://www.buyshedsdirect.co.uk/ 中提取数据获取最新的具体项目的价格。 我有一个excel电子表格，具有以下内容： | A | B 1 |项目|价格 2 | bfd /花园结构/拱门/总理拱廊 和VBA脚本： Dim ie As New InternetExplorer Dim item As String
..
将工作簿中的每个工作表保存为单独的pdf
我想循环使用工作簿中的所有工作表，并将它们作为单独的pdf保存在与工作簿相同的路径中。文件以工作表名称命名。 以下代码可以运行到“wsA.ExportAsFixedFort”行。我得到的错误信息是： 运行时错误'91'：对象变量或块变量未设置 但我无法弄清楚问题是什么... 任何建议？ Option Explicit Sub Workshee
..
vba：测试shape是否包含文本框
我想在excel文件中的图表中循环所有形状。 这原则上与 Dim currChart As Chart 设置currChart = Sheets（“Diagramm 1” ） Dim sShapes As Shape 对于每个sShapes在currChart.Shapes Debug.Print sShapes.name Debug.Print sShapes.T
..
Excel VBA VLookup失败
我不是任何方式的VBA专家，但足够了解基础知识。我正在一个脚本来帮助一个当地的动物庇护所。有四张表已经手动合并成一份报告。所有四个报告都包含一个共同的变量，我已经命名为AnimalID。意图是在狂犬病更新表上找到AnimalID，并将到期日期返回到“报告”页（按Count增加的209个实例）。我已经将代码复制到下面的其中一个选择。当我尝试运行脚本时，我收到以下错误（通过msgbox Err.Des
..
合并行，总和一列值，并保持最早的开始时间和最后的结束时间
我已经能够找到将合并行并删除不再需要的重复行并且总计其中一列的代码。然而，这些代码是基于ActiveCells，这对我来说不起作用。我需要这样做来处理大量的数据。如下面的示例中，将包含需要合并的行，2行或更多行。但是我还有一个额外的要求，我只是找不到解决方案。以下是我们可以使用的一小部分数据。这里有4列（实际数据集中还有5列，但它们都是重复数据，而不是本示例所需），这代表了挑战。我需要将这三行合并
..
将多个工作表复制到一个
我花了一段时间寻找帮助编写代码，将匹配的数据从多个工作表复制到单个工作表中，但唯一一个与我发现的类似的工作位于这里：
..
每行迭代中的逻辑运算
我正在更新基于可用性代码的容量表。特定范围内的可用性代码具有相同的容量（除少数例外）。每个可用性代码列在“F”列。相关联的容量将列在“I”列。 代码的目标是： 阅读单元格“F”中的可用性代码 - 可以从300-799中的任何 nnn 确定其中的范围下降 - 300-499,500-599,600-699,700-799，除了762,763,764,765,768 在单元格“I”中分
..
如何使用excel文件的文件名来更改单元格列？
我正在尝试编写一个excel宏/ VBA代码，以便根据文件的标题调整列的内容。目前，我有一个宏设置来下载一个基于我输入的URL的csv文件。宏自动格式化并命名文件。我想使用文件名/标题的前5个字符自动格式化其他单元格。 例如，文件名是48GHY_fjfdkjfe33.RHRH-msadklfjeiojo。我的文件中有一个名为name + type的列。我想结合“名称”行和标题，并填充字段。下
..
Userform listbox rowsource不填充
我有一个具有 OK 和取消按钮和列表框的用户表单。它应该使用以下代码填充： Private Sub UserForm_Initialize（） Me.StartUpPosition = 0 Me.Top = Application.Top +（Application.Height / 2） - （Me.Height / 2） Me.Left = Application.Left
..
VBA排序不排序，不可预测的循环
我正在运行一个宏以从工作簿中删除格式，对列中的值低于0.501排序列降序删除行。 我收到一些帮助修复部分代码 但是，我发现了其他问题。代码看起来很不可预测。根据列排序降序不排序所有工作表中的行。如果我将范围更改为 .Range 代码中断。 Sub sort_delete_500cust（） Dim WS_Count As Integer Dim i，K As Integer
..
Excel VBA XLDialogSaveAs功能不起作用
我正在尝试以.xlsx文件格式将.xls文件自动保存在硬编码位置。我想要“SaveAs”对话框显示硬编码位置，以及在“文件名：”字段中编码的文件名。这是所有我需要做的是点击保存按钮。 但是，当我要将文件保存在H驱动器中时，SaveAs对话框总是显示C Drive。以下是我的代码： b Sub externalRatingChangeFile（） '声明变量的数据类型 Dim
..
使用宏清除WorkSheet的内容，而不清除剪贴板
如何使用宏清除Excel表单的内容，而不清除剪贴板的内容？ 我正在使用以下代码（通过单击工作表上的按钮来调用），但这会清除剪贴板中的数据，我从其他来源，并希望粘贴在清除的表格中 Sub clear（） Dim ws As Worksheet 对于每个ws在ThisWorkbook.Worksheets ws.UsedRange.ClearContents 下一个ws 结束
..
返回错误json的Google API distancematrix导致VBA
希望有人能指出我正确的方向。我在VBA中有一个函数，它从Excel调用，调用从一个邮政编码到另一个邮政编码的距离。这是正常的，直到现在。 距离只需要为荷兰计算，但不可能将查询字符串限制在一个国家/地区。现在我有一个邮政编码2151 KD，我用我的查询字符串作为一个从或从邮政编码。像： http://maps.googleapis.com/maps/api/distancematrix/
..
通过Excel VBA连接Sap
如果我们使用excel vba连接到SAP，有人可以帮助我指导。 我的机器上没有安装直接的sap，并且在下面的链接中使用SAP窗口。 https：//nedc-ctx.applications.services.axa-tech.intraxa/Citrix/AccessPlatform/auth/loggedout.aspx 我知道SAP GUI的记录和运行功能，这是正常工作。
..
编辑多个工作簿的公式以删除外部引用/更改对本地工作簿的引用
我将工作表复制到一批工作簿（大约45）。 此工作表包含公式和引用，即 = Sheetname！A1 和 = IF（Sheetname！A2 = 1，“this”，“that”）。 然而，当表格被复制时，这些公式已经成为 = [Original_Book.xlsm] Sheetname！$ A $ 1 和 code> = IF（[Original_Boo
..
在一系列单元格中进行宏搜索
想要编写一个宏，可以搜索单元格范围（或单元格之后）中的特定单词，我们来说就是说“你好”。假设我的电子表格如下所示： 您好，你好， Hello Nancy你好， 你好，数量2 电子表格的内容每天都会更改，因此我可能会有不同的“Hello”每天。我想将最后一个“Hello”旁边的数字（2）复制到另一个单元格。如果hello的字数没有退出，它将在该单元格中加0（请注意，即使字数为0，
..
CreateObject Excel.Application在循环中在左键单击时抛出一个错误
我有一个安装程序，其中 sourceApp 创建具有 CreateObject 的Excel的第二个实例，然后开始发送数据与for循环。此代码位于空的工作簿中： Option Explicit Sub StreamToOtherWorkbook（） Dim sourceApp作为Excel.Application Dim targetApp作为Excel.Applicatio
..
Excel VBA：删除旧记录
我试图删除任何180天或以上的记录。日期在F栏。当我运行时，没有任何反应。我认为它与Date（）函数有关。 Sub ClearOldData（） 应用程序。 ScreenUpdating = False Sheets（“Data”）。选择 Dim LastRow As Long With ActiveSheet LastRow = .Cells（.Rows.Count，“A”
..
列出第一行字段中给定特定枢轴项的第二行字段（多行字段）的优化枢轴项
我很久以来一直在搜索这个，但仍然没有结果。说我有一个包含2行标签和1个数据变量的数据透视表，如下所示： Rowlabel1 Rowlabel2值和值 a A 1 B 2 C 3 d D 4 e E 5 我想能够列出 Rowlabel2 的枢轴项，给定一个特定的 Rowlabel1 ，以获取“A”“B”“C”循环，然后连接到“ABC”。无论我尝试什么，它只输出所
..