Tag: 汇总

汇总多个Excel文件所需的macros

我有多个结构相同的excel文件，并在一个文件夹中。 每个excel文件的数据从d4开始（多行数据，但所有行都在随后的d上开始） 我需要一个macros从文件夹中的所有单独的Excel文件中获取数据，并从单独的Excel文件中创build一个新的Excel文件，结构如下。 1.）excel文件中的数据从汇总文件中的a1开始 2.）汇总文件中第一个excel文件的数据下面附加的excel文件中的数据 3.）重复该文件夹中的所有excel文件。 谢谢 编辑我发现这（我很抱歉，我不记得在哪里，我记得它不工作）我知道很less关于Excel和VBA（我主要是我在PHP工作），我觉得我问了很多与出能够提供我自己的很多帮助，以获得我所需要的，我为此道歉。 我做了两个简单的Excel文件，并在每个文件中添加了一行数据，然后在名为Rollup的Excel文件中运行这个macros。 我认为这个代码的问题是，它在汇总excel文件中的作用是光标移动到相应的行，就好像它附加了两个文件，但没有数据显示。 Sub extract() Dim a, b, c, d, n, x As Integer Dim f As String Cells(2, 1).Select f = Dir("C:\" & "*.xls") Do While Len(f) > 0 ActiveCell.Formula = f ActiveCell.Offset(1, 0).Select f = Dir() n = n + 1 Loop x = Cells(Rows.Count, 1).End(xlUp).Row […]

汇总表更新来源表

我想制作一份汇总表，如果发生变化，则更改汇总表来源。 我到目前为止的代码汇总了汇总表激活事件汇总表上的所有表单。 我正在尝试将所有其他工作表都更新为停用事件，但似乎没有工作。 这是我正在使用的代码： Private Sub Worksheet_Deactivate() Application.ScreenUpdating = False Dim tabs As Variant tabs = Array("BELD", "RMLD", "Pascoag", "Devens", "WBMLP", "Rowely", "AMP", "First Energy", "Dynegy", "APN", "MISC") For j = 1 To UBound(tabs) Sheets(tabs(j)).Select Dim rng1 As Range Dim Stri As String For i = 3 To ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Cells.Count).Row Stri = ActiveSheet.Cells(i, "A") Set rng1 […]

在一组数据之后插入一个空白行，并对该数据进行求和

我发现这个解决scheme ，这几乎是我所需要的。 但是，格式化后我还需要对数据执行一些计算。 我想在每组数据后面插入2个空白行，然后在插入空行后求和某些列。 当前表： column1 | column2 | column3 | column4 A | 1 | blue | .2 A | 2 | orange | .1 A | 1 | yellow | .5 B | 1 | yellow | .4 B | 1 | blue | .2 C | 2 | green | .1 D […]

报告所有可能的列组合

我一般都有关于组合的问题，但在一个相当复杂的情况下，我还没有find任何帮助。 我正在试图find一种方式来报告数据集中列的所有可能的组合。 数据报告了关于土地变化的文献调查，并指出每篇文章中报告了哪些近似和潜在的驱动因素。 因此，这些行表示单独的文章，而列则表示所有邻近和下面的驱动程序。 有六种types的接近驱动程序和五种types的基础驱动程序。 对于每篇文章，将1放置在该文章中标识的驱动程序的列中，而在驱动程序的列中则为0。 表格看起来大致如下： key | d1 | d2 |…| d6 | i1 |…| i5 | ————————————– A1 | 1 | 0 |…| 1 | 1 |…| 0 | A2 | 0 | 1 |…| 0 | 0 |…| 1 | A1条款将d1和d6标识为直接驱动程序，i1标识为间接驱动程序等。 我想要做的是找出报道直接驱动因素，间接驱动因素，直接驱动因素和间接驱动因素的所有可能组合的文章数量。 例如，有多less篇文章标识d1，d2和i1; 多less个确定d1，d2和i2; 等等？ 我的学生在Excel文件中有表格，我想可能是Calc或Base可能有一个自动执行这个过程的function。 有没有人有一个想法，我怎么能做到这一点？ 谢谢！

只在一个行（不是列）中只加上可见的单元格？

我有一个行，我只想总结可见的单元格，我知道如果它是一个列我可以使用小计（109，范围），但这似乎并不适用于一行中的单元格。 任何人都知道如何总结连续可见的单元格？ 请点击这里图片

如何在一组数据之后自动插入空白行

我在下面创build了一个与Excel表类似的示例表，它可以用来说明这个问题。 我想简单地在column1中的每个不同的数据之后添加一行（最简单的方法，使用excel，谢谢）。 _ 当前表： column1 | column2 | column3 ———————————- A | small | blue A | small | orange A | small | yellow B | med | yellow B | med | blue C | large | green D | large | green D | small | pink _ 希望桌子 注意：每个不同列之后的空白行 column1 | […]