Tag: 循环

pandas迭代行，然后打破，直到条件

我有一个这样没有组织的专栏。 Name Jack James Riddick Random value Another random value 我想要做的只是从这个列中获取名称，但努力寻找一种方法来区分真实姓名为随机值。 幸运的是名字都在一起，随机值也都在一起。 我可以做的唯一的事情是遍历行，直到它获得“随机值”，然后中断。 我试过使用lambda的这个，但没有成功，因为我不认为有办法打破。 而且我不确定在这种情况下理解能够起作用。 这是我一直在试图玩的例子。 df['Name'] = df['Name'].map(lambda x: True if x != 'Random value' else break) 但是，上述不起作用。 任何build议什么可以根据我想要实现的工作？ 谢谢。

VBA如何创build单元格底部边框每5行只有可见单元格

我正在寻找应用一个底部的边界，每隔五行可见。 循环从第14行开始，继续到第200行。 我想循环寻找单元格中的值（我，“D”）。 即列D中的每一行。 目前我得到一个对象所需的错误，我设置x = 0的行。我很困惑，因为我宣布x作为整数在顶部。 Sub Border() Dim i As Integer Dim x As Integer Dim sumsht As Worksheet Set sumsht = ThisWorkbook.Sheets("Sheet1") x = 0 For i = 14 To 200 x = sumsht.Cells(i, "D") + x If x = 5 Then With Worksheets("Sheet1").Rows(i).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = […]

Excel VBA – 从工作簿中的某个工作表中复制范围从一个工作表粘贴到所有工作表

我觉得这太简单了，但我有一个约100页的工作簿，我需要复制范围从一张（Sheet2范围A1：H200）到Sheet5 AF1：AM200和每页后（Sheet5通过Sheet100或更多）。 我已经尝试创build一个循环，并复制原始范围和粘贴到每个工作表，但它没有奏效。 我觉得这是我得到的最接近的 Sub CopyPasteLoop() Dim wsVar As Worksheet For Each wsVar In ThisWorkbook.Sheets With wsVar ThisWorkbook.Worksheets("Sheet2").Range("A1:H200").Value = ThisWorkbook.Worksheets("Sheet5").Range("AF1").Value End With Next wsVar End Sub 我觉得应该更简单，但我不能使它工作。 谢谢！

将多个工作表的单元格区域中的零replace为非特定工作表名称或工作表的数量

我想清除多个工作表中特定范围内value = 0的单元格。 每次运行macros时，工作表的编号和名称都会有所不同。 这是我想出来的，但它不起作用。 ' ' REMOVEZERO_KVEMoxyModel Macro ' ' Sub REMOVEZERO_KVEMoxyModel() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets Call RemoveZeros End Sub Sub RemoveZeros() For Each cell In Range("I3:I500") If cell.Value = "0" Then cell.Clear End Sub

在循环数据时无法从设置表中复制

我有一个早先的问题，这是慷慨的回答，我被给了下面的代码，完美的工作在一个testing环境中代码循环了3张，只有1张数据和3列完美。 以下是我推荐的代码，通过16列。 然而，我相信我正面临的问题是，在实时环境中打开工作表时，子工作簿都包含“查找”，“详细信息”，“摘要”和“呼叫”4个选项卡。 该代码包含For Each sheet In ActiveWorkbook.Worksheets 我只想从“Calls”选项卡的循环中的每个工作簿中获取下面的代码中的数据。 任何人都可以推荐任何改变现有的循环来做到这一点？ Sub Theloopofloops() Dim wbk As Workbook Dim Filename As String Dim path As String Dim rCell As Range Dim rRng As Range Dim wsO As Worksheet Dim sheet As Worksheet Set sheet = ActiveWorkbook.Sheets(Sheet2) path = "M:\Documents\Call Logger\" Filename = Dir(path & "*.xlsm") Set wsO […]

如何比较同一行中两个不同列中的两个单元格同时向下循环列？

现在我的代码从L2开始，循环到列的最后一行。 如果单元格值小于“上一页”单元格的单元格的值，则该单元格将以40的ColorIndex高亮显示。效果很好。 我真正想要做的就是能够同时循环播放第二列（他们都会显然在同一行）。 从逻辑上讲，它应该是这样的： 如果单元格值（从L2开始）小于“上一页”单元格中单元格的值，并且AE2单元格值等于“＃N / A”（注意：此时所有公式已被删除所以“＃N / A”是一个string）然后突出显示颜色索引为40的L2单元。任何帮助表示赞赏。 Sub Comparing() Sheets("Output").Select Dim UsedRng As Range, LastRow As Long Dim x As Long Set UsedRng = ActiveSheet.UsedRange LastRow = UsedRng(UsedRng.Cells.Count).Row Range("L2").Select Do Until ActiveCell.Row = LastRow + 1 If ActiveCell.Value < Range("Previous!L2") Then ActiveCell.Interior.ColorIndex = 40 End If ActiveCell.Offset(1, 0).Select Loop End Sub 编辑：感谢您的答复。 调整之后得到的代码工作如下： […]

根据其他工作表中的值隐藏variablesRangeName

目前我正在使用一个数组来缩小工作代码。 我会很快解释代码; 如果某个零件需要在数据表中（该工作表被称为“高压研磨辊”），则用户可以通过在表格（“Invulformulier”）上input值“a”来定义该零件。 如果单元格值为“a”，现在有几个部分可以在数据表上。 如果我们有“partA”，“partB”和“partC”，单元格的RangeName将是表单上的零件名称（“Invulformulier”）。 板料上的范围的范围名称（“高压研磨辊”）将是部件的名称+“1”。 例如“partA1”。 这个范围必须隐藏，这取决于用户是否为“partA”放入“a”。 这是我使用和工作的代码，但特定于单元名称： Sub Hidecellv1 () If Range("partA").Value = "a" Then Sheets("High Pressure Grinding Rolls").Range("partA1").EntireRow.Hidden = False ElseIf Range("partA").Value = "" Then Sheets("High Pressure Grinding Rolls").Range("partA1").EntireRow.Hidden = True End If End Sub 这段代码非常具体，我想创build一个数组。 这是我迄今为止： Sub Hidecellwitharray () Dim rngName As Range Dim cell As Range Application.ScreenUpdating = False For […]

在VBA中使用“Do while”循环遍历列和设置范围

我有一个时间序列的数据范围，列A的date和列B的价格。 这个数据在前200行中有“N / A”（一个string，而不是错误）（这个数字不是精确的，每次运行文件都会改变，所以我不能直接引用它）。 为了能够从没有“N / A”的范围进行graphics绘制，我使用“Do While”循环遍历行，直到它不等于“N / A”，然后设置范围。 问题：出于某种原因，我的“我”计数器没有求和。 循环开始，然后以i = 1结束，应该是i =最后一个“N / A”的行号。 代码的相关部分是： i = 1 If SourceWorksheet = "Ret" Or SourceWorksheet = "Vol" Then Do While w.Sheets(SourceWorksheet).Cells(i, 2) = "N/A" i = i + 1 '****Problem IS HERE, IT IS NOT SUMMING TO i Loop Set RetRange = w.Sheets(SourceWorksheet).Range(Cells(i […]

VBA循环无法正常工作

Sub Button2_Click() Dim i As Integer, q As Integer i = 2 q = 2 Do While i < 468 And q < 3450 If Worksheets("Sheet1").Range("A" & i).Value = Worksheets("Sheet2").Range("A" & q).Value Then If Len(Worksheets("Sheet1").Cells(i, 4)) < 12 Then Dim edate As String, adate As String, ed As String, ad As String, n As Integer, […]

Excel VBA – 循环活动表不起作用

嗨，这个网站多年来，通常帮助我所有的问题。 我已经看了大量的post，这些post似乎都是相关的，但是我仍然无法获得这个代码的工作，我已经使用了许多排列，但它仍然是行不通的。 我试图循环表单，并删除不等于表名称的行条目; 我也去if语句忽略特定工作表。 我的问题是它只会在一张纸上工作，不会遍历所有。 有什么想法吗： Sub CleanRegionalSheets() Application.ScreenUpdating = False Dim ws As Worksheet Dim lngx As Long With ws For Each ws In ActiveWorkbook.Worksheets If ActiveSheet.Name = "Raw Data" Then ElseIf ActiveSheet.Name = "Building Status" Then ElseIf ActiveSheet.Name = "Clean Data" Then Else For lngx = Cells(Rows.Count, "A").End(xlUp).Row To 3 Step -1 If […]