Tag: for loop

结束如果/下一步C语句与For循环/ VBA: 我有一个相当复杂的For循环里面有一个If语句和另一个For循环里面。并给予一定的标准（即If InStr(1, q.Value, "Total") ）在第二个循环中，我想结束整个If语句并移到Next C 我明白，这是像洋葱层，可能不是一个简单的出路。 For Each C In copyRng If IsNumeric(C) And C.Value <> "0" And Len(C) <> 0 And C.Value <> "2017" Then Set rowRange = xSheet.Range(C, C.EntireColumn.Cells(1)) 'set range from cell up to the top cell of the comment/ Fix the 2017 thing For Each q In rowRange 'Loop […]

用python中的for循环添加新的excel表: 以下问题：for循环的每个迭代都应该添加一个新工作表到现有的Excel工作簿。在同一次迭代中，pandas系列必须写入这张表。最后，必须有一个Excel文件，每个文件包含一个pandas系列。我正在尝试： from pandas import Series for counter in range(n): sheet_name = 'Sheet%s' % counter series.to_frame(name = '').to_excel('output.xls', sheet_name=sheet_name) 不幸的是，这段代码每次迭代都会生成一个新的excel工作簿。结果，那里只有一张纸。请帮忙，我完全不知道。提前致谢！

VBA错误下标for循环用于复制/粘贴超出范围: 我不断收到我的for循环错误消息。它应该做的是比较一个给定的工作表的每一行的第一列variables，并复制它，如果匹配，然后将其粘贴到不同的工作簿中的工作表，但出于某种原因，我不断收到“运行时错误“9：下标超出范围”作为引用新工作簿/工作表的行。我到目前为止的循环： For i = 1 To Sheets(1).UsedRange.Rows.Count If Sheets(1).Cells(i, 1).Value Like dateRange & "*" Then Sheets(1).Rows(i).Copy Workbooks(destinationWorkbook).Worksheets("Sheet2").Rows(i).Paste 'Debug shows the error is here End If Next i 在前面的代码中，我将variables定义为： destinationWorkbook = "C:\Users\lbran\Desktop\Book1.xlsm" 我也尝试使用Workbooks（destinationWorkbook）.Worksheets（“Sheet2”）。Cells（i，1）.Paste 我对VBA非常陌生，所以我不确定是否正确引用了粘贴到工作表，但我知道它确实存在作为一个新的工作簿中的空表

通过文件夹中的多个工作簿循环执行命令: 背景首先我意识到所有这些对于数据库来说都是一个完美的任务，但我目前没有这个选项，我认为在excel中继续这样做是一个很好的学习经验。我有多个工作簿，每个工作簿都包含一个识别号码列表，通过下面的代码input我需要的工作簿名称，并将列表导入包含多列数据的工作簿。然后我运行我的匹配和导出子分解主数据集到不同的表。题有没有办法为包含文件夹中的每个文件使用for循环，以便我不需要依次识别每个工作簿？ Sub Export_Specified_Contractor() Dim listwb As Workbook, mainwb As Workbook Dim fname As String Dim sht As Worksheet, oput As Worksheet Dim LRow As Long, oLRow As Long Dim cprng As Range, orng As Range '–> Get the name of the contractor list to be exported fname = Application.InputBox("Enter Contractor […]

在Excel VBA的原始表中的每行之间添加10行: 我有一个数据表，我想在原始表的每一行之间插入正好20行。我已经尝试运行嵌套的for循环来添加每个循环的每一行，并跳到我的表上下一个“原始”行上添加另外20行以下。但是，这是永久的，因为我的电子表格中有超过2000行。有没有其他方法可以做到这一点？任何VBA代码，我可以用这个？

从几个工作表中提取数据并将其放入摘要工作表（循环错误）: 我已经创build了下面的代码，以便从工作簿中的多个工作表中获取特定的数据，并将它们放在汇总表中的行中。它或者填充任何东西或者一遍又一遍地填充每一行。它需要自动发生。 Sub Summary() Dim WkSht as Worksheet Dim Row as Integer 'A15 – A29: Pull over (A1) if > 0 'B15 – B29: Pull over (C1) if > 0 'C15 – C29: Pull over (D7) if > 0 For Each WkSht In ThisWorkbook.Sheets For Row = 15 To 29 If WkSht.Name Like "Tr. […]

从由范围加载的数组中删除空白条目: 我试图删除一个数组，从一个名为TY [L3名称]（1列，X行长）从Excel中的数据表加载的空白条目。下面的代码旨在从数组中删除所有空值（一旦它已经被加载范围），并返回一个新的数组，其中只有数据的行。我想将这个数组传递给一个集合，以删除重复，但我想弄清楚为什么我不能先乘坐空白（现在我在一个点，我只是想了解如何做到这一点不pipe我是否通过这个别的东西或不）。 ReDim Preserve行代码错误。我首先将NewArr的大小设置为MyArr表，但最后返回空行。然后我试图调整它，所以我只有行中的数据，但我似乎无法得到的NewArr（）数组做这个没有错误。我正在使用立即窗口来validation没有空白条目（目前在TY [L3名称]范围的末尾有8行）。 Sub BuildArray() ' Load array Dim MyArr() Dim j As Long ' Size array MyArr() = Range("TY[L3 Number]") ReDim NewArr(LBound(MyArr) To UBound(MyArr), 1) ' For Loop to search for Blanks and remove from Array ' The Lbound and UBound parameters will be defined by the […]

types不匹配错误＃13: 我有一个For循环遍历每一行，我需要从循环中使用的每一行的D列拉的值。我正在尝试使用以下方法通过使用计数器的值作为行号来提取值。 X = Worksheets("Test").Cells(4, Counter).Value 我一直遇到Type mismatch error #13

Excel VBA在For-Next循环中显示每个迭代的结果: Sub TrialOne() Dim loop_ctr As Integer For loop_ctr = 1 To 100 Sheets("Capacity&Costs").Activate Range("Vans") = "=INT(RAND()*3+1)-1" 'Generate random number Range("c26:c29") = 0 'Account for large van's lead time Range("d29") = 0 'Account for small van's lead time Range("VanCapacity").Formula = "=Sum(g4:h4)" 'Calculate total van capacity Range("LostBusiness").Formula = "=k4-l4" 'Calculate lost business Range("VanPurchase").Formula = "=Sum(o4:p4)" 'Calculate Van […]

VBA：使用多个For循环，还是一个大？: 我最近一直在想，在效率方面哪个更好？使用多个For循环还是一个包含许多操作的大循环？我使用SQL数据库的17列中的50k-100k行。现在，一个代码示例： z = Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To z If Cells(i, 15) <> 0 Then Cells(i, 19) = 1 Else Cells(i, 19) = 0 Next i For i = 2 To z Cells(i, 20) = Val(Left(Cells(i, 2), 2)) Next i For i = 2 To z Select Case Cells(i, 18).Value Case […]