Tag: 循环

Excel VBA循环行直到空单元格

我有一个连续的纯文本的Excel文档。 A1：A5包含文本，然后向下几行，另外还有几行文本。 之间的单元格是空的。 我已经设置了Do Until循环，它应该用文本复制单元格，然后在空单元格出现时停止。 我的循环计数和复制136个单元格，包括5个文本。 所以我的问题是为什么？ 底线： 你好在136行结束，然后有空白单元格的巨大差距，直到下一个文本区域。 这131个白色单元格是否包含隐藏的格式？ 我已经尝试过“清除格式”和“全部清除”代码片段： Sub CopyTags_Click() Dim assets As Workbook, test As Workbook Dim x As Integer, y As Integer Set assets = Workbooks.Open("file-path.xlsx") Set test = Workbooks.Open("File-path.xlsx") x = 1 y = 1 Do Until assets.Worksheets(1).Range("A" & x) = "" test.Worksheets(1).Range("A" & y) = assets.Worksheets(1).Range("A" & x) […]

如果连一个单元格都不是红色或蓝色，就删除整行

我的macros在下面提供。 我想删除所有的行，其中甚至没有一个单元格是蓝色或红色！ 所以，macros在一开始就会着色，这很好用！ 但是，当我想保留具有彩色单元格的行时，它不能正常工作。 macros不告诉我，它有一个错误。 它只是运行，但从来没有停止运行：任何想法？ 非常感激！ Sub PO() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Application.EnableEvents = False Worksheets("Tracker").Cells.Copy With Worksheets("po") .Cells.PasteSpecial xlValues .Cells.PasteSpecial xlFormats End With Sheets("po").Select Dim mDiff1 As Double mDiff1 = 0.01 Dim mDiff2 As Double mDiff2 = 0.03 Dim mDiff3 As Double mDiff3 = 0.01 Dim mDiff4 As Double mDiff4 = […]

尝试了解如何使用某些参数编写if then elseif语句

是的，我是一个VBA无能。 只是学习，我需要有人来看这个，并指出我在正确的方向。 我想写一个if语句的单元格范围。 我希望macros看每个单元格，如果单元格= 0，清除单元格，如果单元格<> 0，则什么都不做，看下一个单元格。 这是我可怜的尝试。 Sub MACRO6() Dim VM As String VM = Range("D29:E43") Sheets("10").Select For Each VM In Range If cell = 0 Then ClearContents ElseIf cell <> 0 Then End If Next End Sub

Excel中IF语句的范围

我正在为我的雇主制定一个自定义的Excel电子表格。 我已经想出了一个非常讨厌的function，做我想做的事，但我很想简化它。 我熟悉C ， C#和Java 。 我想避免使用VBA ，但如果这是我唯一的select，我可以考虑使用它。 我正在制定处理订单和从库存中扣除物料的制造工厂的计划表。我为工厂生产的所有产品设立了一个页面。 每种产品都有不同的材料。 我目前有一个讨厌的if语句，它检查两个表之间的匹配string，然后在find匹配时用相关信息填充其他单元格。 我目前有一个20条件的if语句！ 我绝对不会在真正的节目中做这样的事情！ 是否有反正我可以循环通过一系列的单元格，直到find一个匹配，然后从那里去？ 这是我正在尝试做的一个例子： Tab：MoldInformation – 包含工厂生产的产品的所有必要信息。 标签：订单 – 包含客户所下的所有订单。 在订单标签中，第一个单元格的名称为“模具”，用户可以在其中input一个string，然后在订单选项卡中有关于生产订单所需的材料数量的信息。 如果input了某个模具，则对应于该模具的材料将在订单表单中填充其各自的选项卡。 我所有的计算都很好，但是我的if语句看起来像这样： = IF（A3 = MoldInformation！$ A $ 3 E3 / MoldInformation！$ F $ 3，如果（A3 = MoldInformation！一个$ 4中，E3 / MoldInformation！$ F $ 4中，IF（A3 = MoldInformation！一个$ 5中，E3 / MoldInformation！$ F $ 5中，IF（A3 = MoldInformation！一个$ […]

VBA第一个数组项总是空的

下面的代码修补了我在网上find的几个例子，我不是VBA专家。 但是clist数组中的第一个项目（以及下拉菜单中的第一个项目）总是空的，我假设它与redim ，但我无法弄清楚。 可能是什么问题？ Private Sub ComboBox1_Change() ReDim clist(0) 'If any value is input If ComboBox1.Value <> "" Then Dim kword As Variant Dim product As Variant 'For each product description in our sheet table For Each product In [Produtos[Descrição]].Rows 'Keyword search For Each kword In Split(ComboBox1.Value, " ") If InStr(Replace(product.Value, "", " "), kword) […]

从Excel选项卡自动创build和命名Matlab中的表

我有以下单元格数组，这是一个（但不是全部）在Excel文件中的选项卡名称的列表： selectedTabs = 'Screen' 'SectorAbsolute' 'SectorRelative' 如何根据列表中的内容读取Excel表格的每个选项卡并返回标签内容的表格？ 新表应该与读取的标签具有相同的名称。 我尝试过（例如，创build一个名为“SectorAbsolute”的表，其中包含“SectorAbsolute”选项卡的内容）： char(chosenTabs(2))=readtable(inputFile,'Sheet',char(chosenTabs(2))) 但是这会返回错误： 只能使用一个下标来标记表格。 表下标需要行和variables下标。

在java中通过多张excel迭代

我对java很新。 我从Excel创buildpList。 我的Excel文件包含多个工作表。 我想遍历Excel文件的所有表单。 如何对此？ 请帮忙。

比较两个arrays与Excel VBA

至于这个问题，我需要能够将Variant数组A中的所有数据与Variant数组B中的所有数据进行比较。我知道我需要某种双循环（因此每个A值都会针对所有B值进行检查），但我无法弄清楚如何去做。 以下是我到目前为止： Sub Button_Click() Dim trgtRange As Variant Dim tempRange As Variant Set myRange = ThisWorkbook.Sheets(1).Range("L:L") For Each cell In myRange If IsEmpty(cell) Then ActiveCell.Offset(-1, 0).Select currentRow = ActiveCell.Row Set trgtRange = Range("L2:L" & currentRow) Exit For End If Next cell Set tempRange = Range("A1:A" & currentRow – 1) ' Insert a double loop here […]

通过工作表循环

我是VBA的初学者（3天前开始）试图build立一个macros。 我希望得到我的代码的帮助，以及了解我出错的部分中的代码是怎么回事。 代码的目标是从每个工作表最后一列的单元格中收集值，并将它们编译到第一个表格（我将在第一次打开工作表时创build）的银行列中。 我的代码是非常原始的，可能包含很多错误。 大多数部分是从源头（甚至是macros观录像机）复制和粘贴的。 我已经设法使其工作，但我希望浓缩它。 这个工作的代码是： Sub Test() Dim LastCol As Long Dim rng As Range ' Creating a bank sheet Sheets.Add ' Returning to Page 1 Sheets("Page 1").Activate ' Use all cells on the sheet "Page 1" Set rng = Sheets("Page 1").Cells ' Find the last column in "Page 1" and COPY LastCol […]

VBA循环与一些工作表

我是一个初学者，我想在我的excel文件的所有工作表中做一个循环，除了第一个。 但是，下面的代码只适用于第二个。 你能解释我这个代码有什么问题吗？ 非常感谢 Sub MobileTCalculation() 'MobileTCalculation Macro Dim i As Integer For i = 1 To 40 Worksheets(1 + 1).Select Range("A20").Select On Error Resume Next Next i End Sub