Tag: for循环

如何在excel vba中使用for循环连接数组中的string

我目前正在尝试遍历Excel表中的行，并连接列与其他一些硬编码的数据。 现在我正在做这个手动的方式，因为我不知道如何连接使用Excel VBA。 我的代码看起来像这样： myproperty = Chr(34) & Worksheets(tbValue).Cells(6, 15).Value & Chr(34) & ":" & Chr(34) & Worksheets(tbValue).Cells(rrow, 15).Value & Chr(34) & ";" & _ Chr(34) & Worksheets(tbValue).Cells(6, 16).Value & Chr(34) & ":" & Chr(34) & Worksheets(tbValue).Cells(rrow, 16).Value & Chr(34) & ";" & _ Chr(34) & Worksheets(tbValue).Cells(6, 17).Value & Chr(34) & ":" & Chr(34) & […]

我如何正确使用For循环多个条件

我有以下循环： With Sheets("Sheet Name") For i = 2 To 26 .Cells(11, i).Formula = Application.WorksheetFunction.CountIfs(Sheets("Sheet1").Range("F8:F" & n), Sheets("Sheet2").Range(Chr(64 + i) & "8"), Sheets("Sheet1").Range("AC8:AC" & n), "S") .Cells(12, i).Formula = Application.WorksheetFunction.CountIfs(Sheets("Sheet1").Range("F8:F" & n), Sheets("Sheet2").Range(Chr(64 + i) & "8"), Sheets("Sheet1").Range("AC8:AC" & n), "YS") Next i End With 每行末尾的最后一个条件改变一个string，即“S”，“YS”。 我想避免对每个“S”和“YS”等等使用1行，即每个标准将有多行。 我也想添加另一个处理行的循环

使用pandasread_table和文件列表

对于Python来说，我一般都很陌生，但是我正在尝试制作一个脚本，它将文件夹中的某些文件的数据放入Excel电子表格中。 我所拥有的代码将在我指定的文件夹中find所需的文件types，然后用完整的文件path进行列表。 import os file_paths = [] for folder, subs, files in os.walk('C://Users/Dir'): for filename in files: if filename.endswith(".log") or filename.endswith(".txt"): file_paths.append(os.path.abspath(os.path.join(folder,filename))) 它也将采取特定的文件path，从正确的列中提取数据，并将其放入正确单元格的excel中。 import pandas as pd import numpy for i in range(len(file_paths)): fields = ['RDCR'] data = pd.read_table(file_paths[i], sep= "\s+", names = fields, usecols=[3], 我遇到麻烦的是让read_table遍历我的文件列表并将数据放入Excel表格中，每次读取新文件时，它都会移动到电子表格中的一列上。 理想情况下，for循环会查看file_paths列表的长度，并将其用作范围。 然后它将使用file_paths [i]将文件名逐个input到read_table中。 会发生什么是它findfile_paths的长度，而不是逐个遍历文件，它只是input列表中最后一个文件的数据。 任何帮助将非常感激！ 谢谢！

对于循环设置字体和范围的内部太长

我有一张有很多数据的表（差不多有14.000行和13列）。 我在这张表中运行一个For循环，但是有时候需要2分钟才能完成。 此外，应用程序在For循环中没有响应。 有没有办法我可以重新写我的循环，所以它会跑得快很多？ 这是我的代码： For counter = 1 To Rows.Count If Cells(counter, 13).Value > 500 Then Cells(counter, 13).Interior.ColorIndex = 37 Cells(counter, 13).Font.Color = Black Cells(counter, 13).Font.Bold = True End If count = count + 1 Application.StatusBar = count Next counter 提前致谢 ：）。

如何改善macroslogging器的代码？

我从macroslogging器使用这个代码，并添加一个for循环。 如果可能的话，如何更好地执行此代码？ 我想同时使用2003年和2010年。 Range(Cells(2, 2).Address, Cells(5, 5).Address).Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlDouble .Color = -16777216 .Weight = xlThick End With With Selection.Borders(xlEdgeTop) .LineStyle = xlDouble .Color = -16777216 .Weight = xlThick End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlDouble .Color = -16777216 .Weight = xlThick End With With Selection.Borders(xlEdgeRight) .LineStyle […]

vba range.find方法在随机单元格上停止

我写了这个快速的For循环作为我的macros的一部分，根据dewbk中的值列表在utwbk中find单元格。 循环似乎为一些细胞罚款，然后崩溃。 问题是，它每次崩溃的值不同，但值存在于utwbk。 这是我的代码： Dim utpath As String Dim utwbk As Workbook Dim ogfund As String Dim ogcell As Range Dim newfund As String Dim newcell As Range Dim t As Long For t = 2 To tempfundlastrow If dewbk.Sheets("Macro").Cells(t, 1).Value <> "" Then Set ogcell = dewbk.Sheets("Macro").Cells(t, 1) ogfund = Trim(ogcell.Value) With utwbk.Sheets("Report").Range(Cells(1, 1), […]

在for循环或数组中处理Range值更为理想

我想知道什么是更好的填充Range的单元格： 检查我想要填充的行数和列数，并使用For..Next循环来访问单元格（请参阅下面的代码），或者 执行相同的操作，但使用单元格数据或Variant数组加载 其他一些方法？ 这是我的代码： ' Count number of rows and columns we have rowCounter = CountRowsFunction colCounter = CountColsFunction ' Do operations needed For i = 2 To rowCounter originalSheet.Cells(i, colCounter + 1).Value = Round(DateDiff("n", originalSheet.Cells(i, ColumnsIndex(2)).Value, originalSheet.Cells(i, ColumnsIndex(3)).Value) / 60, 2) Next i 在这种情况下，我直接访问单元格。 但是，我相信这可能会给传播者造成不必要的打扰。 谢谢

如何使用For-Loop重复VBA代码

我需要帮助执行H列的每个ID的第一个代码。我已经尝试build立一个“循环”和“下一个”无济于事。 我想build立一个“i =行号”types，并有一个“i + 1”命令，将执行列中每个单元格的相同任务 任何帮助真诚感谢！ Sub GenerateAll_1() 'Copy the first ID in the list (cell H2) and paste it Sheets("Specialist Roster").Select Range("H2").Select Selection.Copy Sheets("Weekly Productivity").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'My code that saves as pdf based on other criteria goes here 'REPEAT task for the cells H3, H4… H260

VBA：如何比较dynamic数组值

嗨，大家好， 我是VBA的新手，对于以下问题的帮助将非常有帮助： 我有一个长度不一的string数组。 我想比较数组中每个位置的值与不同长度的数组中的所有位置。 我试图跟随（比较固定值，而不是一个初学者的数组，但不能得到这个工作）： Option Explicit Dim subassys(counter) As Long, Filter1 As String, Filter2 As String, Filter3 As String, Filter4 As String Sub sub_fitler () Sheets("data").Select ActiveSheet.Range("A1").CurrentRegion.AutoFilter Field:=4, Criteria1:="Spectrum 1" Range(("E2"), Range("E1").End(xlDown)).Copy Sheets("Temp").Select ActiveSheet.Paste Range("A1").End(xlDown).RemoveDuplicates Columns:=1, Header:=xlNo Range(ActiveCell, ActiveCell.End(xlDown)).Select set subassys = Selection Filter1 = "0" Filter2 = "ET" Filter3 = "Assy" Filter4 = […]

使用Pythonpandas追加现有的Excel表格与新的数据框

我目前有这个代码。 它完美的作品。 它通过文件夹中的excel文件循环，删除前两行，然后将它们保存为单独的excel文件，并将文件作为附加文件保存在循环中。 目前，每次运行代码时，附加文件都会覆盖现有的文件。 我需要追加新的数据到已经存在的excel表单的底部（'master_data.xlsx） dfList = [] path = 'C:\\Test\\TestRawFile' newpath = 'C:\\Path\\To\\New\\Folder' for fn in os.listdir(path): # Absolute file path file = os.path.join(path, fn) if os.path.isfile(file): # Import the excel file and call it xlsx_file xlsx_file = pd.ExcelFile(file) # View the excel files sheet names xlsx_file.sheet_names # Load the xlsx files Data sheet […]