如果2个单元格相同，则将单元格字符串添加到另一个单元格
我正在尝试制作一个通过电子表格的宏，并且根据第一个和最后一个名称相同的2行，将种族列的内容添加到第一行。 例如。 FirstN | LastN |种族| ID | Sally |史密斯|白种人| 55555 | Sally |史密斯|美洲原住民| | Sally |史密斯|黑人/非裔美国人| | （宏运行后） Sally |史密斯|白种人/
..
Office
如何解决Missing Powerpoint 15对象库错误
我已经编写了一个从excel导出到powerpoint的宏，并且已经在Excel / Powerpoint 2013 2010中正常工作。 但是我在另一个版本的Excel 2010，并有一个VBA错误，它缺少powerpoint对象库15.我尝试运行宏与powerpoint库14，并能够但它不是重新格式化幻灯片或做了很多我正在做的格式。 安装对象库的最佳方法/最简单的方法是什么？我可以
..
通过查看前几个字符，数字化excel vba排序表
我想在我的excel文件中排序表格。我的工作表名称是12_abc，122_adf，3_dasf，11_ad等。我想根据我的工作表名称中的“”（第一个下划线）之前的数字排序工作表。在进行排序时，代码应该明白3应该出现在134之前。代码需要在“”之前取文本并将其转换为数字。 我可以做同样的事吗？这个问题与此问题非常相似。我根据我收到的意见发布了一个新问题。 解决方案 尝试...
..
错误1004 - 不打开文件。当我尝试在一个文件夹中打开工作簿
好的，我试图从文件夹中的几个工作簿中提取数据，并将它们全部放在一个文件中。当代码点击Workbooks.Open时，错误1004弹出，我确定文件没有损坏。 Sub Extract_Class_Data（） 'Extract_ERP_Class_Data宏 '文件夹中的所有文件，并从每个文件中提取数据。 Dim MyFile As String Dim sourceBoo
..
Excel vba - 打开具有变量（日期）文件名的文件
我有以下代码打开具有可变文件名的文件，因为日期在其中。我每天都用日期戳保存每个文件，即今天早上我保存了一个昨天的日期文件4.20.17。 这个代码将在每个星期五早上运行，目标是加载最近5个工作日的文件（上周五，周一，周二，周三，周四）从这些文件中获取一些信息（从每个文件复制2个单元格），将该信息粘贴到新的工作表中，最后关闭每个文件。 目前，代码设置为告诉我什么时候不存在一个文件（例如上
..
为列中的每一行创建TextBox
我试图找到一个VBA代码，它将遍历表的特定列中的行，并为每个迭代行创建一个TextBox，并将其设置为该单元格的值。 来自此处的代码插入文本框并设置公式确实可以创建一个文本框，但是我需要修改它，以便遍历整个列。 我试图做一个这样的循环： Sub addTextBox（） Dim newshp As Shape Dim newtb As TextBox Dim i
..
Excel VBA - 从格式不正确的日期提取正确的日期？
我正在学习VBA编程，并遇到下面的情况，我将不胜感激你的帮助。理想情况下，不仅仅是找到一个解决方案，而且还要了解解决方案的工作原理。为什么这个解决方案可以运行。 假设有一个数据库可以导出数据的电子表格。其中一列具有日期值，但导出格式不正确。系统发送日期为mm / dd / yyyy hh：mm AM / PM，例如 04/11/2014 09:24 AM ，但电子表格具有此标识作为dd /
..
合并一个单元格，取决于它的价值
如果单元格具有一定的值（“vv”），我想自动将单元格与下面的单元格合并。 a解决方案我发现是每次更改数据时检查数组中的每个单元格，但认为有可能检查单元格的值已更改？ 所以如果我输入一个空白单元格“vv”（不带引号），我选择一个不同的单元格'像这样的单元格（与其中的vv）合并在一个正确的单元格下。 在我的解决方案与数组它需要一秒钟，每次你更改一个单元格，这是不整洁，如果你做了很多变化。
..
Excel - VBA填充第一和最后一个值之间的单元格
我试图使用VBA来填充左边的值的行中的所有空白单元格，除了我只想填充行中第一个和最后一个值之间的空白单元格（不包括第1行和第列A，它们是标识符）。 一旦达到值的最后一列，我一直在努力停止循环（随着每行的更改），而不是一直运行在工作表的最后一列。 最初这被标记为重复（当有空白值时自动填充），但这并不能解决上述问题。这一直持续到纸张结束。如下图所示，当达到最后一个值时，填充应该停止。
..
比较不同列顺序的两个工作表
我正在尝试比较Excel中的两个工作表，以使用vba查找新的/更新的记录。 （假设工作表1是旧的，工作表2有潜在的新的/更新的条目） 这些工作表有非常相似的信息存储在每个，只是在一个不同的订单。 例如： 工作表1在列E中有街道地址，而工作表2在列H中有街道地址。还有许多其他列这个。 我不太确定从哪里开始。我试图通过剪切和插入来重新排列第二张表中的列，以匹配那些第一张的列，但是
..
更改图中最后一个点的颜色
我在VBA中创建了一个图形 但是，我想要的最后一点是使用另一种颜色红色） 这是我的代码： Sub Macro2（） ' 'Macro2宏 ' ' i =范围（“G3”）选择 j = Range（“D3”）。选择 使用ActiveChart.ChartArea.Select i.MarkerBackgroundColor = RGB（250,250,250）
..
VBA选择范围内的随机行
我只是想在用户选择范围内选择一个随机行。但是，有时程序将选择特定范围之外的随机行。请参阅下面的代码摘录： Dim PopulationSelect As Range Set PopulationSelect = Application.InputBox（“人口“，类型：= 8） RandSample = Int（PopulationSelect.Rows.Count * Rn
..
根据Excel中的下拉列表选项显示/隐藏列
我试图根据我的下拉菜单的选项显示一个隐藏的列。对于单排它可以正常工作，但是当我要扩展我的范围10行 如果Range（“$ CF $ 5：$ CF $ 15 “）=”其他“然后 Tt显示一个运行时错误13。 / p> 以下是我的代码。感谢您的帮助。 如果Range（“$ CF $ 5”）=“其他”然后 ActiveSheet。列（“CG”）。EntireColumn.Hid
..
VBA功能仅在可见范围内
我试图在自动筛选的电子表格上运行PercentRank函数，使其仅在可见的单元格上运行。我尝试定义一个范围对象，即： Dim x As Range x = ActiveSheet.Range（“K1：K6027” ）.Rows.SpecialCells（x1CellTypeVisible） 然后尝试使用该范围的函数ie： PercentRank = Worksh
..
VBA检查范围内的值
我试图循环一个列，如果cell =“我在看什么”，然后做一些事情。 到目前为止，我已经在我的if语句中查找“name”： Option Explicit Sub test（） Dim wksDest As Worksheet Dim wksSource As Worksheet Dim rngSource As Range Dim name As Str
..
Excel VBA按特定列排序命名范围
我有一个选定的范围，在该范围内，我想按特定列进行排序，以便每行保持一致，即排序函数只是根据我选择排序的任何列重新排序整行。 / p> 我的代码到目前为止是这样的： Sub CustomSortAscendingExcel（ByVal control作为IRibbonControl，ByRef cancelDefault As Variant） Dim selRange As ran
..
使用win32com.client编写并执行excel VB宏
我正在尝试编写一个打开现有的.xlsx文件的脚本，将Visual Basic宏脚本写入自动调整大小的注释，执行所述宏，然后关闭并保存工作簿。 我对win32com.client非常陌生，经过几个小时的挖掘，我没有找到很好的文档来编写来自python的VB宏脚本。因此，我使用这些线索的反馈将脚本拼接在一起： https： //stackoverflow.com/a/19506287/75
..
访问图表的形状ID - excel vba
有些背景先。 Excel允许重复的形状名称。也就是说，您可以在同一工作表中同时拥有ChartObject和椭圆形两种形状。您还可以有两个图表，名称为“图表2”。如果您尝试引用重复名称的形状，例如 ActiveSheet.Shapes（“Dupe”）。选择 excel似乎诉诸于返回具有最低ID（和重复名称）的对象。 没有办法（我知道）将ActiveChart与其相应的包含形状相链
..
使用VBscript在Excel表上设置MINUS操作
是否可以使用vbscript在Excel工作表上实现Set操作？说A - A'= A1 假设我有一个矩阵A，如下所示： PID T1 T1Sdate T1Assign T2 T2Sdate T2Assign T3 T3Sdate T3Assign T4 T4Sdate T4Assign 10 A 10/11 Ram B 2/5 Hari X 03/03 Peter L 04/
..
vba是在等式比较中被视为零的空值
我正在尝试跳过具有零值或为空的记录。截至目前，我有以下代码明确地检查，但我觉得第二次检查是多余的。但我想确认我是对的，以便我可以删除IF的第二部分。 IF（CellInValue（RowInCrnt， ColInCrnt）= 0或CellInValue（RowInCrnt，ColInCrnt）=“”）然后 解决方案 不，“”不等于 0 ，并会在强类型中产生类型不匹配如果用作
..