Tag: 范围

将范围分配给数组

我一直在为此奋斗了一段时间，但popup的错误对话框并不是最有帮助的。 我试图从工作表中提取一个名称列表，并使用范围函数将它们分配给一个数组。 我尝试过，但我似乎无法得到它的工作，所以我试着读取单元格中的1，而不是使用Do Until Loop。 我没想到会在这里发表，所以我以前做的代码已经没有了，但是这里有一个例子： Dim RangeList As Variant RangeList = ThisWorkbook.Worksheets("Plan").Range("H1:H132").Value2 我把它转换到下一个方法，希望它会导致一个更直接的方法： ReDim ResourceList(ResourceLength – 1) I = 1 Do Until ThisWorkbook.Worksheets("Plan").Cells(I, 8).Value = "" ResourceList(I) = ThisWorkbook.Worksheets("Plan").Cells(I, 8).Value Workbooks("NEW PROJECT PLAN").Worksheets("Console").Cells(I, 2).Value = Resource I = I + 1 Loop 第一个返回一个空的范围，“找不到任何单元格”，第二个给了我一个空的string数组长169个项目。 我觉得我正在撞在这个砖墙上，任何帮助将不胜感激。 以下是我正在尝试解决的所有代码： 'Collects the List of Resources Dim ResourceLength As Long, […]

VBAmacros编译错误

我正在尝试编写一个简单的VBAmacros，它将采用活动单元格的列和用户的input将一行单元格的范围添加到一起。 范围是通过将用户input的整数添加到活动列并且是结束列来计算的。 问题是，当我运行它时，它给了我一个“编译错误：无效的限定符”，并在“全部”行中生气。 这是我的代码。 我刚刚开始在VBA，但不能那么辛苦….对吧？ Sub Food() Dim first As Variant Dim last As Integer Dim days As Integer Dim month As Range Dim total As Double first = ActiveCell.Column days = InputBox("Days in the month?") last = first + days Set month.Value = Range(Cells(first, 4), Cells(last, 4)) total.Value = WorksheetFunction.Sum(month) Worksheets(1).Cells(1, 13).Value = total […]

VBA过滤多个单元格

我试图根据另一个选项卡上的多个单元格的值过滤列表，但我不能让它正常工作。 这就是我得到的： ActiveSheet.Range("$A$2:$Y$129").AutoFilter Field:=13, Criteria1:=Range("Formulas!A8:A10").Value 问题是，它与1单元格，但不是多倍，因为我已经试图做范围A8：A10。 现在的代码只在最后定义的单元格上过滤，即A10 – 而不是整个范围。 我究竟做错了什么？

select范围单元格以从多个工作簿复制时出错

根据dwirony的意见更新： 我试图创build一个代码，从多个工作簿中的相同单元复制信息，并将这些信息合并到一个摘要工作簿中。 下面的代码按照书面forms工作，但是，如果向sourceRange添加更多单元格地址（从第69行开始），macros仍然运行，但是没有信息被复制到新的摘要工作簿中。 原问题： 我试图从一个文件夹中的多个工作表中select相同的特定单元格，并将它们合并到一个主电子表格中。 该代码工作到一定数量的单元格，但是如果我尝试包括更多，macros返回一个空白的工作簿（除了我分配的列标题）。 如果select的单元太多，那么最初工作的单元将无法工作。 即在下面显示的代码中，单元格J2是调用的第一个和最后一个单元，程序将运行。 如果我再次添加J2，（范围结束… J2，J2“）或任何其他单元格，似乎我已经达到了某个地方的限制，我得到一个空白的工作簿。 我以前没有使用过VBA和macros的经验，我所做的一切都来自各种互联网和内部资源。 也许多个来源是错误的来源？ 任何帮助将不胜感激！ Sub MergeAllWorkbooks() Dim MyPath As String, FilesInPath As String Dim MyFiles() As String Dim SourceRcount As Long, FNum As Long Dim mybook As Workbook, BaseWks As Worksheet Dim sourceRange As Range, destrange As Range Dim rnum As Long, CalcMode As Long Dim […]

Excel VBAselect最后一行Ctrl在工作表中结束

如何调整下面的代码来处理VBA（我认为是xlLastCell或xlCellTypeLastCell）的crtl shift end的等价物？ 我的工作表有64列，我只想select列1到58，我有第2行开始的数据。下面的工作，除非工作表是空白的，然后从第2行到1048575所有行被选中。 因为我保护下面的行200,000我的脚本错误下面的单元格。 With Worksheet(WorkSheet) .Range(.Cells(2,1).End(XlDown),.Cells(2,58)).Select End With Selection.ClearContents

C＃Excel生成 – 范围复制（不需要的行为）使用最后一个单元格作为正确数据的第一个单元格

List<someClass> aList = new List<someClass>(); … XLWorkbook workbook = new XLWorkbook(); IXLWorksheet worksheet = workbook.AddWorksheet("Data"); worksheet.Hide(); workbook.CalculateMode = XLCalculateMode.Manual; var data = aList.ToArray(); var firstCell = worksheet.Cell(1, 1); var lastCell = worksheet.Cell(numRows, numColumns); // numRows = 150, numColumns = 8 var writeRange = worksheet.Range(firstCell, lastCell); //firstCell = A1, LastCell = H150 writeRange.Value = data; workbook.SaveAs(mySavePath); […]

如何以编程方式在Interop中的工作表中设置每隔一列

使用Excel Interop（.NET）我们如何以编程方式为每个其他列设置两个不同的Excel公式。 例如， Range r = _sheet.get_Range(_sheet.Cells[1, 1], _sheet.Cells[I, J]) r.Formula = "=something1" 将为每个细胞做到这一点。 但是在J列中，其他列必须有公式=something2 。 范围的大小只有在运行时才知道。

显示基于数千条logging的数字范围

我有15000个数字在1000-8000之间。 每个号码被分配到六个类别和子类别之一，在某些情况下，有重叠。 样本数据： value cat1 cat2 2333 WHITE A 2334 ORANGE B 2335 ORANGE A 2335 WHITE B 2336 ORANGE A 2336 WHITE B 2336 RED C 2337 RED A 2338 RED A 2339 RED A 2340 RED A 结合这些价值的有效方式是什么： 白色：2333，2335-2336 橙色：2334-2335,2336 红色：2336-2340 用例：给定一个值，例如2338一个检索RED的cat1值的有效方法是什么？ 对于这个用例，存储这些string来testing的更有效的方法是什么？ 语言偏好是JavaScript，PHP或MS Excel

Excel – 在命名范围内的行的颠倒顺序

我有这些命名范围工作正常。 但是，由于数据是如何导入到工作表中的，所以它们会被颠倒过来，而且我需要再次将它们反转。 命名的范围如下所示： =OFFSET(Numbers1!$D$2;0;0;SUMPRODUCT(IF(Numbers1!$D$2:$D$60<>"";1;0));1) 那么只有改变公式才有可能？ “反转”意味着它在电子表格中看起来像这样： 201103 201102 201101 201012 201011 201010 201009 201008 201007 201006 201005 201004 201003 201002 201001 200912 我所追求的是扭转秩序，使底部的数字（200912）位于顶部等。

将一系列数据与另一个数据范围进行比较和匹配

每行4列表示一组数据 A1 : D1 1,2,3,4 A2 : D2 4,2,1,5 A3 : D3 5,3,2,1 等等 现在列集将与另一列集进行比较 F1 : I1 4,6,3,1 F2 : I2 4,3,2,1 F3 : I3 2,3,5,1 与另一列组相匹配的组将被标记为红色。 所以在例子F2:I2和F3:I3将被标记为红色。 他们只需要包含相同的数字。 顺序并不重要，但所有的数字都应该匹配。 我想过使用条件语句，但似乎无法find一种方法来比较和匹配其他范围集的范围集。 作为替代scheme，我想添加所有的列=A1&" "&A2&" "&A3&" " &A4然后sorting它，然后匹配它，但我尝试从左到右sorting的集合，它似乎不是sorting权如果我一下就做完 该表将包含大量的行，所以这将是一件难事一个一个地做。 所以我没有想法，因为我不擅长excel。 :(欣赏所有的帮助，我可以得到。:)另外，我不介意学习其他语言，如果它使事情更容易。 （只要我可以从Excel导入数据）