Tag: 合并

与VBA合并单元格

我正在寻找合并3个水平单元格，但我这样做是在一个循环。 代码看起来像这样： myrange.Range(cells(3,i), cells(3,i+3)).mergecells = true 这不起作用。 我猜它是因为代码试图合并两个不相邻的单元格。 使用这种单元地址types合并一系列单元格的语法是什么？ 任何帮助将不胜感激！ 谢谢！

用于邮件合并的特定列的浓缩列表

我有一个特别的问题，我正在寻找解决，但我会尽量保持简洁： 最终目标：使用邮件合并为每个特定收件人创build一大堆信件。 数据集我被给了： Company e-mail Part Num Part Descr. broncos jman@hotmail.com 6S iphone 6s plus broncos pey_me@nationwide.com 5S iphone 5s saints drew@NOLA.gov 6 iphone 6 broncos jman@hotmail.com 6S+ iphone 6s plus packers AA-ron@pac.com 6 iphone 6 falcons MattyIce@yahoo.com 5C iphone 5C saints drew@NOLA.gov 6+ iphone 6 plus dolphins rhill@gmail.net 5S iphone 5S jets Tebow@uf.edu 5 […]

将多个.xls文件合并到一个工作表中

我有一个完整的.xls文件的文件夹，所有的文件都有相同的结构（列名），我希望代码打开文件夹中的每个文件，复制sheet1的内容并粘贴到另一个excel文件中，打开第二个文件复制并追加到表单1中。 目前我有这样的代码做不同的工作表 Sub GetSheets() Path = "C:\Users\dt\Desktop\dt kte\" Filename = Dir(Path & "*.xls") Do While Filename <> "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub

将数据从一行中的两个单元格合并到一个单元格中，并重复列中的所有单元格

从本质上讲，我有一些将创build两列数据的代码。 我需要连接水平相邻的单元格（A1：B1合并，A2：B2合并，A3：B3合并等），但我没有发现的代码似乎没有帮助。 感谢您的任何反馈

将两个单独的xlsx文件中的.xlsx工作表合并到新工作簿中的单个工作表中

我需要用vbscript（而不是vba）完成这个。 我找不到如何做到这一点的任何例子。 我已经有了vbs，可以完成所有我需要的Excel文件的主要处理，但是我需要的最后一部分只是简单地将两个单独的.xlsx文件中的工作表合并到一个工作表中，放到一个新的工作簿中。 我已经find了使用vba将两个文件合并到单独的wb中的示例，但是我需要它们在同一个工作表上，并通过vbscript。 它基本上就像两张床单的结合。 它们都包含相同数量的列（6列）和相同types的数据。 基本上需要复制任一电子表格中的标题并粘贴到新的工作簿/工作表中，然后将所有数据复制到标题下方的新工作簿/表单中。 希望这是有道理的。 任何帮助表示赞赏。 我半接近这个，这将两个数据表放到同一个新的工作簿称为“合并”，但需要它合并到一个工作表。 Set objExcel = WScript.CreateObject ("Excel.Application") objExcel.Visible = false strFileName = "c:\excel\merged.xlsx" Set objWbA = objExcel.WorkBooks.open("c:\excel\wb1.xlsx") Set objWbB = objExcel.WorkBooks.open("c:\excel\wb2.xlsx") Set objWorkbook = objExcel.Workbooks.Add() objwba.worksheets(1).copy _ objWorkbook.worksheets(1) objwbb.worksheets(1).copy _ objWorkbook.worksheets(2) objWorkbook.SaveAs(strFileName) objWorkbook.close objWbA.Close True objWbB.Close True objExcel.Quit Set objExcel = Nothing ========================== 这是我想出的一个解决scheme（用CSV输出）： Option Explicit Dim […]

Excel比较列input第三

我已经尝试了几个东西，并且在四个小时后进入非工作公式。 我在读研究生，但开始使用Excel进行计算。 我想在一张纸（表1）上填写数据，并将其中的一列（邮政编码[列A]）与第二张（第二张）邮政编码[列A]和收入[列B]相匹配。 我需要能够将表​​1（调查信息）中的邮政编码和所有其他相关数据与收入（表2）相关联来分析。

Excel工作表join而不覆盖列

我有两个Excel表。 一个看起来像这样： 另一个这样的： 我想要像这样合并它们： 可悲的是，我没有两个，但约150张，需要合并。 第二列在每一个中都是一样的，它们具有相同的值。 有任何想法吗？ 谢谢！

如何range.find合并单元格中的值

我有一个合并单元格的工作表（例如B2：C3值“myValue”）。 如果我尝试search与合并单元格中的值 r = ThisWorkbook.ActiveWorksheets.Range("$A:$D").Find("myValue") Debug.Print r.Address 我只得到其他具有相似值的单个单元格的地址，但不是合并单元格的地址。 我怎样才能用VBA做到这一点？ 如果我使用Excel的手动searchfunction，它会立即find值。 最好的问候，哈利 编辑：当我使用从加里的代码，我得到一个运行时错误91.variablesr是没有。

合并来自不同的Excel工作簿的数据

首先，在编码方面，我是一个新手，但是现在让我们来看看它是如何帮助我深入研究数据的。 我目前正在为不同的团队成员捕捉时间表数据并将其复制到主摘要工作簿中。 我logging了我的macros，然后重新组织了一些东西，使代码更清洁（这可能是我错误的地方）。 但是现在当我运行macros时，运行时错误“9”：下标超出范围。 我的代码如下： Option Explicit Sub MergeAll() ' Open all Timesheets Workbooks.Open Filename:= _ "S:\UFD\24 Reports\02 Time Keeping\PT Time Sheets\2016_JAMAL.xlsx" Workbooks.Open Filename:= _ "S:\UFD\24 Reports\02 Time Keeping\PT Time Sheets\2016_LOKESH.xlsx" Workbooks.Open Filename:= _ "S:\UFD\24 Reports\02 Time Keeping\PT Time Sheets\2016_NONI.xlsx" Workbooks.Open Filename:= _ "S:\UFD\24 Reports\02 Time Keeping\PT Time Sheets\2016_RAJESH.xlsx" Workbooks.Open Filename:= _ "S:\UFD\24 Reports\02 Time […]

将数据表自动合并到一个工作表上

希望我能得到一些帮助，结合从不同的工作表的数据到一个自动请。 我目前有一个约14个不同的工作表的工作簿。 在选定的一组工作表中，包含将相应更新的数据 – 它们需要保持与用户分开。 为了能够汇总这些数据以生成一个特定的报告，我需要把所有的数据表（全都用相同的格式）合并成一个用于最终的汇总计算（这样=AVERAGEIFS函数可以工作，而其他的手工计算平均公式会更准确）。 目前我正在考虑用两种方法中的任何一种来解决问题： 将组合数据表分别引用数据表中的每个单元格。 我目前的公式是=Sheet1!A1 。 这个公式的问题是，如果原始数据表中的任何行被删除（很有可能），这将导致组合数据表上的计算错误。 然后，我看到了=INDIRECT("Sheet!A1") ，但是这不会在工作表中正确填写，这意味着我必须单独更新大约40K个单元格。 我在想的另一种方法是使用一个macros或一组公式将自动获取数据（我不希望有一个macros的运行命令）。 macros/公式的devise是从选定的工作表中拾取每一行，并在它遇到第一个空白行并移到下一个选定的工作表（如循环）时停止。 对于我可怜的解释抱歉 – 任何其他关于我如何能够实现这一点的build议也将非常受欢迎。 提前谢谢了。