Tag: 优化

计算在Excel中的一堆数字的平均百分比？

基本上，我试图计算我正在使用的工作表的总平均停机时间，但是我试图让它进一步细分。 以下是Excel表格的图片： Excel计算 （不允许添加embedded的图片:( – 10声望需要，对不起！） 非常多，我试图计算一个月的平均运行时间，通过计算平均停机时间，然后从100.00％ 我得到的工作是，但我正在努力研究是否可以取消“停机时间”列，并且可以用更大的公式计算总数。 以下是电子表格的链接： https ： //www.dropbox.com/s/msowjndootd2hh2/Spreadsheet%20Calculations.xlsx？dl = 0 提前致谢！

帮助我优化VBA Excel代码，将表单上每行的某些列复制到另一个表中

我需要将表A中每一行的某些列复制到表B中。 我创build了一个创build2个匹配列号的数组（变体）的子，所以我可以将A图中的第3列映射为等于B图中的第8列等。 一切正常，事情是非常缓慢的，这里是： Sub insertIntoSelectedOpps(opCols As Variant, siebelCols As Variant, ByVal length As Integer) Dim insertRange As Range Dim siebelRange As Range Dim rowCount As Integer Set insertRange = shSelected.Range("a3", "bb4") 'very wide table!' Set siebelRange = shDatabase.UsedRange.Rows rowCount = siebelRange.Rows.count MsgBox "siebel row count: " & rowCount For i = 2 To rowCount Set […]

什么可能会减慢我的Excel VBAmacros？

这个函数遍历所有整数，只用五个二进制值来选取二进制值，并写入电子表格。 运行这个For x = 1 To 134217728将需要2.5天！ 帮帮我！ 我怎么能加快速度？ Function D2B(ByVal n As Long) As String n = Abs(n) D2B = "" Do While n > 0 If n = (n \ 2) * 2 Then D2B = "0" & D2B Else D2B = "1" & D2B n = n – 1 End If n […]

Apache POI批量修改Excel文件

我正在运行一个修改大型Excel文件的Java应用程序。 而且我正在经历更新发生的时间。 对于每个单元，我正在运行基于更改的更新作为休闲 public boolean updateCellData(ColumnName, RowNum, Data){ FileInputStream fis = new FileInputStream(path); Workbook workbook = WorkbookFactory.create(fis); row = getRow(rowNum-1); if (row == null){ row = sheet.createRow(rowNum-1); } cell = row.getCell(colNum); if (cell == null){ cell = row.createCell(colNum); } cell.setCellValue(data); fileOut = new FileOutputStream(path); workbook.write(fileOut); fileOut.close(); } 有什么优化，我可以做我的代码？

Excel公式优化

我不是专家，经过一番研究，拿出这个公式从不同的时间看两组相同的数据。 然后显示最新的数据列表中的新条目，但不显示在旧列表中。 这是我的公式： {=IF(ROWS(L$4:L8)<=(SUMPRODUCT(–ISNA(MATCH($E$1:$E$2500,List1!$E$1:$E$2500,0)))), INDEX(E$1:E$2500, SMALL(IF(ISNA(MATCH($E$1:$E$2500&$F$1:$F$2500,List1!$E$1:$E$2500&List1!$F$1:$F$2500,0)), ROW($F$1:$F$2500)-ROW($F$1)+1),ROWS(L$4:L8))),"")} 有什么优化技术可以用来加速计算吗？ 按照要求一些示例数据（链接到电子表格）： https ： //docs.google.com/file/d/0B186C84TADzrMlpmelJoRHN2TVU/edit？usp =分享 在这个缩小的版本，它更有效率，但在我的实际工作表上有更多的数据，它放缓。

VBA和Excel优化脚本，处理700,000行

你好，StackOverflowers， 我目前正在处理一个embedded了IF语句的脚本。 运行时，可能会计算大约140万中频。 我已经用一个定时器（不太确定定时器在VBA中的精确度）运行一个testing，捣鼓1000行给我10秒的时间。 10 * 700 = 7000秒，这= 1.94小时。 任何人都可以给我任何处理这种大型数据集优化技巧？ 我的代码如下 Sub itS1Capped() Dim Start, Finish, TotalTime Start = Timer Dim c, d, j, lastRow c = 1 'find how many rows With Worksheets("Data") lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row End With 'loop through all rows For Each d In Worksheets("Data").Range("D2:D" & lastRow).Cells 'd = IT […]

当运行两次的macros内存不足

我是这个论坛的新手，但是现在我正在自学VBA在工作中使用，所以最近阅读了大量的post！ 我目前遇到了一些我已经创build的代码的问题。 代码的目的是根据双击的单元格值自动筛选多个工作表，然后将这些过滤的结果复制到另一个“主报表”工作表。 问题是，它一次运行得很好，之后如果我再次运行它或者我的其他macros在工作簿中，会popup一个错误，要求我closures内存以释放内存！ 我曾尝试运行一次macros，保存和closures工作簿（清除任何可能被caching），重新打开并运行，但同样的错误仍然存​​在。 我也尝试改变我的.select提示与.activatebuild议由： 运行VBA时如何避免内存不足 但是这似乎打破了我的代码…然后再次我可能刚刚实现它错了，因为我是一个VBA的noob位有人可以帮我优化我的代码，以防止这个？ 我的代码如下： Private Sub Merge() With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom End With Selection.Merge End Sub ——————————————————————————————————————————————————- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True Application.ScreenUpdating = False Application.EnableEvents = False Sheets("Master Report").Cells.Delete 'clear old master report Column = Target.Column Row = […]

excel vba内存使用优化

当我执行我的macros时，我得到了“内存不足”的信息。 发布时间太长，但是有提示可以更好地控制Excel 2007中的内存使用情况吗？ 摆脱对象或类似的东西。 我不知道该怎么做 最好的，美国

最有效的VBA代码将stringvariables转换为整数

我有以下代码转换以下格式的string： "G##"为整数## Dim str As String Dim int As Integer str = "G14" int = CInt(Right(str, Len(str) – 1)) 但是这将定期在大型数据库上运行。 我想知道是否有其他可能更有效的替代scheme（特别是关于最后一行）？

性能优化

我的代码占用了90％的运行时间。 大约有8000行，信息存储在列A中。这一行代码将这些信息分解到其他列中。 运行大约需要15分钟（：O）。 有关如何提高性能的任何build议？ For i = 2 To Row_Number ' Loop for each row If InStr(Cells(i, 1), "//") = 0 Then ' This means that if // appears somewhere in the text we delete all the rows (including this one) (see Else 🙂 and stop the loop j = 1 Do Until Mid(Cells(i, 1), […]