Tag: 合并

Excelmacros – 将多列合并为一个

我有一个有12列的excel 2007工作表（每列对应一个月），每列包含+/- 30000行的每日降雨量数据。 我需要做的是将这些数据列组合成一个新的列（连续降雨系列），如下所示： 将第1列（1月的天数）第1列的“A1：A31”行复制到新列 复制第2列中的前28行（2月的天数）行，并将其放在新列中以前的值之下，等等。 [第3列的前31行（3月），第4列的30行，第5行的31行，第6列的30行，第7行的31行，第8行的31行，第9行的30行，第10行的31行，第12栏第11和第31条] 然后，在下一年做同样的事情，即从第1列复制第二个31的值“A32：A62”，并把它放在上一年（步骤1和2）的下一个新列中。 总的来说，结果将是连续的每日降雨系列。 我已尽全力去做到这一点，但我却无处可去！ 请，有人可以帮我吗？ 非常感谢 ================== 更多的解释 数据按月份分成几个列，好几年了，看起来像这样： 一年一月二月三月 1990 1 25 15 1990 2 20 12 1990 3 22 1990 4 26 所以根据每个月的天数，每一列的月份长短不一（例如，一月有31天）。 现在，我需要将所有条目合并成一个长列。 所以它看起来像这样： 25 20 22 26 15 12 任何帮助，将不胜感激！

用于合并行的Excel公式

考虑电子表格中的以下四行 AAA VALUE TAG AAA VALUE TAG2 AAA VALUE TAG3 AAA VALUE TAG4 我希望能够将所有这四行组合成一行，如下所示： AAA VALUE TAG,TAG2,TAG3,TAG4 这可能吗？ 到目前为止，我find了一个可以部分工作的公式。 = IF（A1 = A2，C1＆ “” ＆C2） 这给了我以下内容： AAA VALUE TAG TAG,TAG2 AAA VALUE TAG2 TAG2,TAG3 AAA VALUE TAG3 TAG3,TAG4 AAA VALUE TAG4 FALSE 为了使其更加复杂，有时A列仅匹配2行，有时列A匹配5个或更多。 我能做些什么来完成这项工作？

向下移动合并的单元格

我正在编写一个VBA脚本，将合并的单元格向下移动。 当这样做popup框来警告用户这个操作将取消合并单元格。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A28")) Is Nothing Then Range("c28").Insert Shift:=xlDown End If 我想要发生两件事情之一。 答：始终自动接受是这样的popup不显示给用户。 （我将在插入后在VBA中重新合并） B.有没有一种方法可以没有淹没就开始。

如何从Excel中的单元格中select一个值

我怎样才能正确selectExcel中的单元格的值？ 我知道我的问题是与select单元命令。 我的实际脚本： List<string> wsList = new List<string>(); DataTable schemaTable; DataSet da = new DataSet(); OleDbDataAdapter adapter = new OleDbDataAdapter(); string name; string FileName = fullpath; string _ConnectionString = string.Empty; string _Extension = Path.GetExtension(FileName); // Checking for the extentions, if XLS connect using Jet OleDB if (_Extension.Equals(".xls", StringComparison.CurrentCultureIgnoreCase)) { _ConnectionString = string.Format("Provider=Microsoft.Jet.OLEDB.4.0; Data Source={0};Extended Properties=Excel […]

在工作表中组合行和总和值

我有一个Excel表格（pipe道“|”来分隔列）的数据。 A|B|C|X|50|60 D|E|F|X|40|30 A|B|C|X|10|20 A|B|C|Y|20|20 A|B|C|X|20|70 D|E|F|X|10|50 A|B|C|Y|10|10 我想要得到的结果是： A|B|C|X|80|150 A|B|C|Y|30|30 D|E|F|X|50|80 值A，B，C和D，E，F就像唯一的标识符。 其实只有A或D可以考虑。 值X和Y就像“types”，整数是要求和的值。 这个样本被简化了，有数以千计的唯一标识符，十几种types和几十个值的总和。 行不sorting，types可以位于更高或更低的行中。 我试图避免使用数据透视表。 Dim LastRow As Integer Dim LastCol As Integer Dim i As Integer LastCol = Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column LastRow = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To LastRow ???? Next i 上面的代码达到了循环遍历行的点，但我不清楚在那之后要做什么。

通过使用VBA将Excel列合并到一个工作表中

我有多个工作表，他们都有相同的列数，但不是相同的行数。 我需要从每个工作表中复制列AS所有行，并将它们彼此粘贴到一个新的工作表中。 当前列AS包含一个公式=X2 & " " & AL2 & "" ，它不允许我复制实际的“文本”并给我一个#ref! 错误。 我需要发生的事情：从多个工作表中复制列，以便行彼此堆叠。 这就是全部，没有公式只是文字。 我修改了下面的代码，它的工作原理，但我只是得到一个#ref! 错误。 我会很感激，如果有人可以帮助！ Sub merge() Dim P As Integer On Error Resume Next Sheets(1).Select Worksheets.Add Sheets(1).Name = "Merged" Sheets(3).Activate Columns(45).Select Selection.Copy Destination:=Sheets(1).Range("A1") For P = 2 To Sheets.Count Sheets(P).Activate Range("A1").Select Selection.Columns(45).Select Selection.Copy Destination:=Sheets(1).Range("A1000000").End(xlUp)(2) Next End Sub Sub opensheets() Dim openfiles Dim […]

将Excel工作表合并为值

我正在使用一些代码（通过http://www.extendoffice.com/documents/excel/1184-excel-merge-multiple-worksheets-into-one.htmlfind）合并5张，每张1000行。 Sub Combine() Dim J As Integer On Error Resume Next Sheets(1).Select Worksheets.Add Sheets(1).Name = "Combined" Sheets(2).Activate Range("A1").EntireRow.Select Selection.Copy Destination:=Sheets(1).Range("A1") For J = 2 To Sheets.Count Sheets(J).Activate Range("A1").Select Selection.CurrentRegion.Select Selection.Offset(1, 0).Resize(Selection.Rows.Count – 1).Select Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) Next End Sub 这似乎是完美的工作，除了我需要使用“粘贴为值”的方法（因为我个人的工作表有许多公式，我只是想把它们作为文本版本）结合起来。 这个代码可以很容易地更改为“粘贴为值”？ 谢谢。

EXCEL：如何合并2组客户数据

我相信这个问题有一个非常简单的答案，但经过广泛的研究后，我不知何故找不到我想要的东西。 我不是一个擅长的职业，但有一些经验。 基本上我有两组数据，按客户账号索引，并给出一个文件中的销售额，利润，成本等一定的数值​​，销售代表负责，在另一个文件中联系的次数。 我现在的目标是将这两个文件合并为一个，以便我在第一列中具有客户ID，并且在一张纸上在其旁边的列中具有与该客户相关的所有数据。 然而，两张纸上的客户号码没有以任何方式sorting，所以我不能复制和粘贴，我正在处理一个相当大的数据集，所以我不能只是手动。 另外，第一张表中的客户编号比第二张中的多，因为一定数量的客户缺less一些数据。 我如何基本上自动合并属于每个客户的数据，以便它最终显示在一行？

Excel中的“索引匹配”function不能在pandas合并（或是否？

在使用合并复制pandas中的Excel索引匹配function方面有几个post，但合并似乎没有涵盖Excel索引匹配的最基本function之一。 我有一个可以通过的解决方法，但我相信有一个更好的方法。 当然，我可能会错过pandas.merge的一些明显的东西。 假设我们有以下两个表格 t1 numbers letters 0 1623 a 1 3266 b 2 3672 c t2 letters target 0 a ddd 1 a ddd 2 a ddd 3 b eee 4 b eee 5 b eee 6 c fff 7 c fff 8 c fff 而且我们想为t1添加一个列，根据t2.letters中的值简单地映射来自t2.target的值，得到如下结果： numbers letters target 0 1623 a ddd 1 […]

Excel VBA根据列中的条件复制和粘贴多个范围，而不是使用合并的单元格

感谢您花时间阅读我的问题。 我有一张标有“Sheet1”和“Sheet2”的2张工作簿。 在“Sheet1”我有范围B14：G65，I14：I65和合并范围J14：J65合并范围中的每个合并的单元格跨列J：N或J14：N：14到J65：N65。 我需要将满足F列标准的范围的值复制到相同范围区域的“Sheet2”中。 我有下面的macros，它工作的很好，除了当它到达合并单元格错误。 如果单元格没有合并，它工作正常。 希望有人能帮助我。 我不能使用行复制函数，因为有列H和P中的公式：AD不能被覆盖，从Sheet1复制整个行覆盖它，因此为什么我需要范围。 Sub Test() Dim rng As Range Dim lastRow As Long Dim cell As Variant Dim count As Long count = 0 With ActiveSheet.Previous lastRow = .Range("F" & .Rows.count).End(xlUp).Row Set rng = .Range("F14:F" & lastRow) For Each cell In rng If cell.Value = "WIP" Or cell.Value = "WNS" […]