通过将其与另一个工作表进行比较来更新工作表
我有一个excel工作表（“Sheet1”），我需要与另一个工作表（“Sheet2”）进行比较。 两个工作表的格式都完全相同。 （即列相同，标题相同） 当将Sheet1与Sheet2进行比较时，我需要检查现有记录的更新。 还检查Sheet2中不存在的Sheet1中的新记录，并将其附加到Sheet1的底部。 表2完全为空，不需要检查。 第2列将是“密钥” 更新＃1
..
Office
将多个Excel表合并到摘要表中
我正在使用以下代码，允许用户从多个Excel工作簿复制并合并数据进入摘要表。 Sub Merge（） Dim DestWB As Workbook，WB As Workbook，WS As Worksheet ，SourceSheet As String 设置DestWB = ActiveWorkbook SourceSheet =“Input” startrow = 7
..
更改复制Sheet1以在宏中复制工作簿
我正在尝试修改以下代码，该代码将从工作簿中复制sheet1并将其保存到文件夹中，并使用一个名为CreateFolder的函数。从这里：调整将excel文件的sheet1复制到sheet1新的excel文件的代码 我已经尝试修改它来复制整个工作簿以发送到创建的文件夹通过CreateFolder。 感谢 编辑：更新代码 Sub CopySheets（） Dim Sour
..
VBA排序宏不工作
排序代码不再工作。它第一次工作然后我关闭它并打开它，然后它给我一个错误。 （我没有改变任何东西。）它给了我： 错误438：对象不支持此属性或方法 在此行上： DataWB。 DataSheet.Sort.SortFields.Add Key：= Range（FNOrdCol），SortOn：= xlSortOnValues，_ Order：= xlAscending，Dat
..
如何将制表符分隔的文本文件导入Excel？
我有多个文本文件（.txt），Tab在文件夹中分隔。文本文件包含第一行作为列标题。我有一个预定义的具有列名称的excel模板。我可以将文本文件导入Excel模板。但是，我需要做的是如何分栏列标题不符合Excel列标题通过VBA。 提前感谢任何帮助..... 解决方案 可以在Excel本身， Office 2010中的“数据”选项卡>“文本”列。在那里，您可以选择它由分页符分隔，您可以在其
..
ActiveWorksheet不是源工作表时出现意外的错误
我有一个带有列标题的工作表（在第1行），每个标题下都有一个介于1到255之间的数组。我有代码为每个标题创建一个新的工作表，并粘贴值（从行2开始到行n，每个标题不同），并将工作表重命名为标题标题。假设标题是有效的表格名称。 当我的 ActiveSheet 是数据工作表。 但是，当我使用不同的 ActiveSheet （在同一个工作簿中）我收到这个错误： 运行时错误1004： 对象
..
excel行中的数据分区
我有一个excel，其中近156列和2000行。有36个任务被审计，其中每个taks已经被描述4列 - 说“任务1名称”，“任务1开始日期”，“任务1完成日期“，”任务1中的总时间“。现在有些时候，这4个列的每一个都可以有所有的值，所有的4列dode都没有值.Now目标是找到这样一个4元组，其中至少有一列列数据存在。但是如果数据不存在，那么它将被告知为不需要的集合。因此，我需要这些不需要的列来移动
..
在vba中的replace函数中获取类型不匹配错误
我的vba代码是将当前时间和日期替换为4_17_2014 8_09_00 PM格式 但是，在VBA代码下运行时，我遇到类型不匹配错误 函数Current_Date_Time_Stamp（） Dim CurrTime As Date CurrTime = Now MsgBox Now CurrTime = Replace（CurrTime，“ - ”，“_”） M
..
VBA错误：对象变量或变量未设置
Sub NameColumns（） 'name key列后面参考公式 Dim startdatecol As Integer '名称开始日期列 startdatecol = ActiveSheet.Cells.Find（什么：=“开始日期”，之后：= [a1]，LookIn：= xlValues，_ LookAt：= xlPart，SearchOrder：= xlByColumns
..
数组值超过255个字符时出现VBA代码错误
我从我正在开发的项目中提取了以下代码段： Sub testData（） Dim dataRange As Range 设置dataRange = Range（“B2”）。Offset（1，0）.Resize（，3） Dim data As Variant data = dataRange.Value2 Dim i As Integer For i = 1 To
..
在Excel中突出显示重复列的VBA代码
我正在开发VBA来验证Excel表单的内容。我想要第一列中的唯一值，并且能够使用另一列上的外键来确定这些值的有效性。这是我必须验证唯一条目： 私有子工作表_Change（ByVal Target As Range） 如果Application.CountIf（Range（“A：A”），Target）> 1然后 MsgBox“Duplicate Data”，vbCritical，“Rem
..
Application.Statusbar在Excel 2013中无法正常工作
我有一个应用程序使用Application.Statusbar更新状态栏与宏的进展。这在Excel 2007和2010中工作正常，但在Excel 2013中无法正确显示。 应用程序正常执行，但状态栏未更新。 任何想法赞赏。 解决方案 谢谢Siddharth。 DoEvents提示是我需要的。我从来没有需要Excel 2007或2010，但在2013年必须改变，所以我需要控制。
..
如果另外两列在excel宏中匹配，则比较两列
如果另外两列匹配，我想比较Excel中的两列。 ABCD $ 10 1234D $ 40 100D $ 20 1235D $ 10 1234D $ 30 122D $ 20 1235D $ 40 1222D $ 30 1222D 首先我需要比较col A和C如果在col C中找到匹配项，那么需要比较B和D是匹配的。例如，我有$ 10在A，其ID为1234D
..
Excel加载项 - 获取“本工作簿”的工作簿名称
我正在尝试开发一个每次运行的加载项您打开Excel并读取打开文件的文件名。 如果文件名为 XCFIL.SKV 然后执行某些东西... 这段代码应该这样做，但是没有。我缺少什么？ 代码停止，如果我调试并按F8它可以正常工作，但它不会运行在它自己的。 Private Sub Workbook_Open（） 如果ThisWorkbook.Name =“XCFIL.SKV”然后
..
Excel VBA宏：创建Outlook日历事件
你可以从Excel中运行一个可以与Outlook进行交互的宏，并在日历上创建和事件吗？ 解决方案 允许您在任何文件夹中将约会添加到共享日历，只要您有权写入。 将日历视为文件夹 Const olFolderInbox = 6 Const olAppointmentItem = 1'1 =约会 设置objOutlook = CreateObject（“Outlook .A
..
如何使VBA宏在整个工作簿的公式中执行搜索/替换？
我将Excel工作簿分发给多个用户，并且他们应该将特定的宏文件预先安装在他们的XLSTART文件夹中。 如果他们没有正确安装宏，并且将工作簿发回给我，则根据它的任何公式都包括宏的完整路径，例如： 'C：\Documents and Settings\richard.tallent\Application Data\ Microsoft\Excel\XLSTART\pcs.xls'！
..
有条件的格式化可靠的报告
我需要从Sheet1：B3获取预先分配的条件格式，并将其应用于生成的数据透视表报表中的所有使用的单元格。所以有两个部分，我有一个问题。首先会发现报告的使用范围，第二个是获取格式并将其应用于这些单元格。错误的3个点被标记为“不工作” Sub CreatePivot（） '定义RngTarget和RngSource作为范围类型变量 Dim RngTarget As Range Dim R
..
哪个更快更有效 - 对于循环，MATCH，FIND等？
我正在做的是在整个范围内逐个搜索一些字符串，如搜索“blah1”，如果找到，则退出，否则以相同的方式在整个范围内搜索“blah2”。 “blah's”在一列中被搜索。 现在我只是运行一个For循环代码，如下所示，到目前为止，我的测试工作正常，但是想知道MATCH，FIND或其他方法可能会更快...任何意见？ 子测试（） Dim LR As Long LR = Sheet1.C
..
根据特定单元格值从Excel中复制特定的行
我在excel书中有多个工作表，每个工作表都包含模块数据。我想从每个工作表复制所有的模块数据，并将其粘贴到一个新的excel书中。如何使用 VBScript 完成此操作？ 在 rawData.xls 中，所有工作表都如下所示> ABC Module1 999 asda Module2 22 asda Module1 33 asda Module7 44 asda
..
从多页面获取activecontrol名称和值
我已经在网上搜索了几个月的解决方案，没有任何成功。 我在 Excel 2010 a UserForm 中创建多页。我正在尝试编写一个函数，将获得 activecontrol 名称和值。 到目前为止，我成功使用这个命令获取控件的名称 Me.MultiPage1.Pages（Me.MultiPage1.Value）.ActiveControl.Name 但是我唯一能够做它是将它设置为变量作为
..