Tag: 范围

计算在excel范围内使用的值

我正在尝试创build一个excel模板,以便当用户将数据复制到“帐户configuration文件”选项卡中时,将计算其中包含内容的最后一行,并将此值用于其他工作表上的公式。 这个公式用数据计算最后一行: =LOOKUP(2,1/('Account Data'!A:A<>""),ROW('Account Data'!A:A)) 这工作正常,麻烦来了,当我尝试使用结果作为范围参考:我想我的公式从第2行 – >行(LOOKUP的值) =COUNTIF('Account Data'!$N$2:$N$991,A8) 我想用“LOOKUP”公式的结果代替“991”,使范围总是正确的。 我确信有一个简单的方法,但我已经尝试了一段时间,无法弄清楚应该是什么语法。

使用活动单元格查找范围名称

我是VBA编程的初学者。 我有一个单元格是命名范围的一部分。 使用该活动单元格,我希望能够find该单元格的一部分,并将其作为Range对象传递给VBA函数或子例程。 任何人都可以向我提供如何进行的指导,或者这是不可能的? 提前致谢!

我如何将我的VBA代码应用于一系列单元格?

我的代码的目的是作用于用户input,然后根据用户input到单元中的内容自动创build一个超链接。 如果用户在单元格中inputhello ,则会创build超链接并链接到www.google.com/hello 。 每个单元格将有不同的input,所以我的范围从hello到其他用户input是非常重要的。 我只有一个单元格的工作,但是当我尝试和跨越到多个单元格,我得到一个不匹配的错误,我怀疑这是由于我引用单元格错误或什么。 这是我的代码: Sub automaticHyperlink() Dim link As String link = "http://www.google.com/" & Range("F2") Range("F2").Hyperlinks.Add Range("F2"), link End Sub 当我将F2所有范围参考更改为F2:F4 ,出现错误。 我的问题是,如何正确地将此代码应用于多个单元格区域而不会产生错误? 有任何问题,请让我知道。 谢谢。

dynamic图表范围 – 此工作表中的公式包含一个或多个无效的引用 – VBA

我正在使用命名的范围dynamic地创build图表。 我每5分钟logging一次数据并添加一行。 添加新数据时图表正确更新。 但是,当我清除第一行的数据,然后我收到错误消息说 此工作表中的公式包含一个或多个无效的引用。 我什么都做不了,因为popup不会停下来。 有没有办法让我的公式更强大,所以它解释了第一行何时清除? 我的公式: =OFFSET(Spreads!$B$130,1,0,COUNTA(Spreads!$B$131:$B$1048576),1) 头在单元格B130开始,但第一行数据在B131。 我尝试使用间接公式,但似乎没有帮助。 我也不删除行,我只是清除数据。

擅长12个月的dynamic移动范围

我在这里说的是我想要实现的简化版本。 我在Excel电子表格中有一张表(表1),其中包含2017年1月至2020年12月的date列(实际值+预测值)以及与这些date对应的收入列。 我有另一个表(表2),其中包含1年的数据点,每月更新。 目前的月份是从2017年5月到2018年4月。下个月我会更新它,显示从2017年6月到2018年5月。我想通过使用索引匹配和偏移function来简化这个过程。 我打算不得不在一个单独的单元格中更新当前月份字段,表2将自动更新12个月的数据点。 任何想法如何可以做? 谢谢!

使用Excel VBA进行dynamic嵌套sorting

我去过这个MSDN页面了解有关sorting多个sorting字段。 它基本上说是给你的密钥编号,并把它们设置成等于sorting字段。 我想通过一个N大小的整数数组来循环排列数组中的值。 例如,如果我的工作表有100列的数据,我可能想根据列3,18和62进行sorting; 所以N会是3.问题是我无法命名sorting键"key" & i当我循环从1到N. 我到目前为止: With Worksheets("SalesRep").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin for i=1 to myArrayLength SortFields.Add Key:=Range(cells(1,colNumArray(i)).address,cells(lastRow,colNumArray(i)).address) next i .Apply End With 你有什么build议?

根据每行多个单元格的值search表

我试图find一个单位的前一个值(单位的数据是一整行)进入一个表。 随着时间的推移,单位的其中一列中的值会增加,我试图使用一个循环来分析每行中的每一行,并在该特定单位input一个新值时返回该特定单位的前一个值单元。 'My Variables Dim current_size As Integer Dim last_size As String Dim joint_number As Integer Dim tool_sizes As Range: Set tool_sizes = drill_log.Range("Drill_Log[Tool Size]") Dim joints As Range: Set joints = drill_log.Range("Drill_Log[Joint '#]") Dim pass_types As Range: Set pass_types = drill_log.Range("Drill_Log[Pass Type]") Dim row As Range 'Finds the current pass size and last pass […]

将数组中的string与范围Excel VBA匹配

我有以下公共子: Public Sub HowToSort() Dim i As Long, j As Long, h As Long, curCell As Range, cellBelow(1 To 10) As Variant Dim sortOrder(1 To 10), colIsString(1 To 10) As Variant For i = 1 To hdrCount 'Find location of a cell Set curCell = Application.WorksheetFunction.Match(headRow(i), Range("a1:z1")) ' Eventually extend outwards? cellBelow(i) = curCell.Offset(0, 1).Value […]

VBA复制和粘贴dynamic范围

我是新的VBA,我卡住了某个地方。 我必须复制列A的最后一行直到列H,并粘贴它,直到列I的最后一行。列的最后一行将总是改变。 例如; 我的数据是在A2:H2和I5是最后一个数据单元格。 我的代码应该是复制A2:H2并粘贴它A3:H5。 第二次运行macros(在向各列添加新数据之后),应该复制A6:H6并粘贴到第一列的最后一行。 我写了两个不符合我需要的代码。 第一个代码是 Sub OrderList1() Range("a65536").End(xlUp).Resize(1, 8).Copy _ (Cells(Cells(Rows.Count, 9).End(xlUp).Row, 1)) End Sub 这段代码跳过A3:H4,只粘贴到A5:H5 第二个代码是 ; Sub OrderList2() Range("A2:H2").Copy Range(Cells(2, 8), _ Cells(Cells(Rows.Count, 9).End(xlUp).Row, 1)) End Sub 它复制A2:H3并粘贴A5:H5,但是当我添加新的数据时,它不会从A5:H5开始粘贴。 它从A2:H2开始,并覆盖到旧的数据。 我可以看到我必须改变,范围应该像第一个代码中的dynamic范围,但我无法设法编写代码。 我真的很感激一点帮助。

总和范围与条件在Excel中

我有一个这样的Excel表 date (A) value (B) 1 2012-09-01 1 2 2012-09-02 2 3 2012-10-01 5 如果月份和年份与当前date相同,我想将它们相加。 在这个例子中预期的结果是3 。 我试过了 =SUM((MONTH(A1:A3)=MONTH(TODAY()))*B1:B3) 但结果是0 。