Tag: 范围

End（xlUp）仅在工作表处于活动状态时才起作用

我有以下代码 Set wb = ThisWorkbook` ComboBox7.RowSource = wb.Worksheets("Sheet5").Range("A2", _ Range("A65536").End(xlUp)).Address 如果我不把wb.Sheets("Sheet5").Select这行之前，这段代码会抛出错误 "Application defined or object-defined error" 我希望这个代码在没有selectSheet5的情况下工作。 如果我把ComboBox7.RowSource = wb.Worksheets("Sheet5").Range("A2:A7").Address然后它工作正常，没有selectsheet5。 有没有什么办法可以在不select工作表的情况下使用End(xlUp) ？

获取VBA中的表格范围（dynamic）

我有一个VBA中的程序，我正在从表中筛选值。 我试图使这个通用的程序，与你所给的所有表一起工作。 在我的程序中，我必须设置它正在过滤的表的范围：设置rng = dataSheet.Range（“A1：F78”）。 我想知道是否有一种方法来获取Excel中的表的范围，它有一些文本值，所以我不必在每个macros中指定它。 我想这是一种dynamic范围。

Excel中的范围从特定的单元格移动到列的末尾

我想知道如何定义一个范围，以便从C5定义，直到列的最后一个值。 C5是一个常数，但列表的结尾不是。 Sub Merge() Worksheets("Sub").Range("C5").End(xlToLeft).Select.copy Worksheets("Master Worksheet").Range("A1:A23").PasteSpecial Paste:=xlPasteValues 结束小组 我得到一个下标超出范围的错误。 任何指导将是非常好的。

Excel vba清除定期更改的一系列数据

我想在excel中创build一个简单的vba函数，通过查找最后一个使用的行并将其设置为范围的末尾来清除从A列到K行以及从第6行到数据底部的一系列数据。 这是我没有工作的代码： Sub clearNameData() Dim destSheet As Worksheet: Set destSheet = ThisWorkbook.Worksheets("Name Search") lMaxRows = destSheet.Cells(destSheet.Rows.Count, "A").End(xlUp).Row destSheet.range("A6:K & lMaxRows").ClearContents End Sub 当我运行这个代码时，它给了我错误“运行时错误'1004'：'method''object' 我无法弄清楚如何得到即时尝试工作，尽pipe我的范围定义的每个语法组合。 任何帮助将不胜感激！

从用户select中获取多个范围（Excel VBA）

是否有可能从用户select中获得多个范围。 例如，如果用户select“A1：B2”，然后按住Ctrl并select“E1：G2”，那么我可以得到第一个范围1范围variables和第二个到另一个？

将IF条件应用于范围Excel VBA

我已经写了这个代码，但它似乎并没有工作，为什么？ Dim oRo As String Dim nRo As String Lastro = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row oRo = "J2:O" & Lastro nRo = "Q2:V" & Lastro Range("C2:G" & Lastro).Select With Range("C2:G" & Lastro) .Range("C2:G" & Lastro).Formula = "=IF(oRo*nRo<0,ROUNDUP(oRo*1.3,-2),IF(ABS(oRo) <=ABS(nRo),nRo,ROUNDUP(oRo*1.3,-2)))" End With End Sub

Excel VBA; 引用variables范围

我试图自动化一个需要每月报告的stream程，并根据这些数据生成exception报告。 由于报告中的数据量因月份而异，因此我需要对此进行说明。 哪种方法最适合引用可变范围？ 例如，而不是引用范围A1：F7087，我想引用包含任何数据的整个范围。 就像看起来那么简单，我一直没有find任何指导。 欣赏任何input。 谢谢

如何编写一个VBA函数来总结一个无限的范围

我需要编写一个VBA函数，它将从我的范围中select所有值，然后将范围的总和显示在单元格D7中。 这是我迄今为止所有的。 它不能是一个工作表函数。 Sub Statistics() 'count number of cell in Range Dim count As Long Sheets("sheet1").Activate Range("a1").Select count = Sheet1.Range("A" & Rows.count).End(xlUp).Row 'output count of cells in Range Range("D6").Select ActiveCell.Value = count 'This is where I need to write the sum function and output it to D7 End Sub

下标超出范围，Excel VBA，试图在循环内创build一个数组

我试图循环遍历表单中的所有控件，每次它捕获一个Label时，Label的Tag元素被添加到数组中。 Dim labelCounter As Integer labelCounter = 0 Dim arrayTag() As String For Each ctl In Me.Controls Select Case TypeName(ctl) Case "Label" arrayTag(labelCounter) = ctl.Tag labelCounter = labelCounter + 1 End Select Next 我不断收到下标超出范围的错误。 这里怎么了？

如何使用设定的范围

我正在寻找一种方法来改善一个更好的方式来写一段代码，看看是否有客户从“第二列表”中的“第一列表”，并将数据复制到名为“find”的工作表。 它是这样的： Dim row As Long, row2 As Long, found as Long Dim ID As String, prtGtId as String, GtId2 as String Application.ScreenUpdating = False prtGtId = "B" GtId2 = "D" row = 2 row2 = 2 found = 0 Do While row <= Cells(Rows.Count, prtGtId).End(xlUp).row ID = Cells(row, prtGtId) Sheets("Second List").Select Do While row2 […]