如何在vba中写带变量的范围
在VBA中，可以使用变量来定义范围。以下是在VBA中编写带变量的范围的示例：
- 使用Range对象和变量来定义范围：
Dim rng As Range
Dim startCell As Range
Dim endCell As Range
Set startCell = Range("A1")
Set endCell = Range("B5")
Set rng = Range(startCell, endCell)上述代码中，我们定义了一个名为rng的Range对象，并使用startCell和endCell变量来指定范围的起始和结束单元格。
- 使用Cells方法和变量来定义范围：
Dim rng As Range
Dim startRow As Integer
Dim startColumn As Integer
Dim endRow As Integer
Dim endColumn As Integer
startRow = 1
startColumn = 1
endRow = 5
endColumn = 2
Set rng = Range(Cells(startRow, startColumn), Cells(endRow, endColumn))上述代码中，我们使用startRow、startColumn、endRow和endColumn变量来指定范围的起始行、起始列、结束行和结束列，并使用Cells方法将其转换为Range对象。
- 使用Offset方法和变量来定义范围：
Dim rng As Range
Dim startCell As Range
Dim offsetRows As Integer
Dim offsetColumns As Integer
Set startCell = Range("A1")
offsetRows = 5
offsetColumns = 2
Set rng = startCell.Offset(offsetRows, offsetColumns)上述代码中，我们使用startCell变量来指定范围的起始单元格，并使用offsetRows和offsetColumns变量来指定相对于起始单元格的行偏移量和列偏移量，然后使用Offset方法将其转换为Range对象。
这些是在VBA中编写带变量的范围的几种常见方法。根据具体的需求和场景，选择适合的方法来定义范围。
相关·内容
1回答
更多的是一个理论问题，但是为什么VBA编程语言中没有float数据类型(带十进制符号的32位数字)，有什么特殊的原因吗？
在VBA中似乎没有任何逻辑编程限制，它能够很好地利用Double (64位)。这只是一个疏忽--认为它是不必要的，还是在VBA中缺少float背后有一个逻辑原因？
浏览 0提问于2018-02-19得票数 2
回答已采纳
如何在VBA中获取文本开头带单引号的Excel单元格值。
例如。单元格A1的值为'123。我只在VBA中获得值123。我需要'123。
浏览 13提问于2018-01-24得票数 2
回答已采纳
如何安装Vimball插件(带.vba扩展)？
文档只是说：
安装详细信息编辑vba文件并键入：
：所以%
vimball文档中写道：
用户需要对vimball所做的全部操作是：
vim someplugin.vba :so % :q
我必须在正常模式下(在Vim内部)还是在_vimrc文件中写入它？我必须写入.vba文件的完整路径吗？我不能在正常模式下写入vim someplugin。我必须写:vim plugin吗？
浏览 48提问于2010-01-09得票数 88
回答已采纳
4回答
我试图写一个循环来测试每个单元格中的数字1，当有一个单元格时，我希望将值存储在相邻的单元格中(A列)，并将所有这些都转到一个单独的表中。
但是，VBA不是我的优点之一，我很难让第一部分工作，我的代码：
Sub test_loop()
Dim Needed_range As Long
Needed_range = Cells(Rows.Count, "B").End(xlUp).Row
For Each cell In Range(Needed_range)
If cell = 1 Then
MsgBox "Yes"
浏览 0提问于2018-03-21得票数 2
回答已采纳
1回答
我有带有复选框宏的隐藏行。
每当我想插入一个新行时，vba代码就会被搞乱，而分配给隐藏下面的行的代码将无法工作。
是否有一种方法动态地让行更改vba中的代码？
因此，我不必重做进程中移动的所有行值和复选框。
IMG]
亚CheckBox1_Click()
If Range("B3").Value = True Then
Rows("4:18").EntireRow.Hidden = False
Else
Rows("4:18").EntireRow.Hidden = True
End If
结束子对象
亚CheckBox2_Cl
浏览 0提问于2013-09-13得票数 0
我想在VBA中将字符串和变量的组合写到一个单元格中。我所知道的就是，要写一个单元格，你需要这样写：
("A1").Value = variable
如果变量设置为例如示例2。
但是，我希望单元格A1在变量位于字符串之间的位置显示"Words 2 more words“。它的语法是什么？
浏览 0提问于2020-11-17得票数 0
我学习VBA，对于Range()到底为VBA带来了什么感到困惑。我对OOP和Java / Python这样的语言有相当扎实的掌握，但是VBA在这里对我来说有点麻烦。
当我试图使用
Set MyRange = Range(ActiveCell, Range(ActiveCell.End(xlDown)))
我知道正确的解决办法是
Set MyRange = Range(ActiveCell,ActiveCell.End(xlDown))
但我想弄明白为什么会这样。错误具体来自于Range(ActiveCell.End(xlDown))。我知道.End()从返回一个Range对象。
然而，当我写
浏览 0提问于2017-09-19得票数 1
回答已采纳
我对VBA很陌生，对语法也不太熟悉。我已经做了一个excel宏，它将识别当前单元格的背景，并以背景色的名称追加当前值。因此，如果单元格具有蓝色背景值和值1000，则宏应将单元格中的值替换为“1000蓝色”。下面是我写的代码。
Sub coloridentifier()
Dim Myrange As Range
Dim Mycell As Range
Dim Myvalue As String
Set Myrange = Selection
For Each Mycell In Myrange.Rows
Myvalue = Mycell.Value
If Mycell.Inter
浏览 0提问于2019-06-25得票数 1
回答已采纳
1回答
我有一个MATLAB代码，它创建了一个大型的单元格数组，我正在使用VBA的MLGetVar函数输入到Excel中。MATLAB代码还提供了标题/标题行的列表。我希望能够获取在MATLAB中生成的行列表，并使用它们在Excel中指定行，这样我就可以更改整个行的格式(例如，标题2)。
我尝试过几种将MATLAB值引入VBA的方法，但没有取得任何成功：
在MATLAB中，我有一系列数字：example = [12,24,60]
我试图获取这些数字并使用它们来指定VBA范围：
MLGetVar "example", VBAVariable
Dim variable As String
浏览 5提问于2015-09-02得票数 0
回答已采纳
我正在学习VBA excel。我正在写一个代码，用来自特定单元格的数据来计算行数，比如B5
代码如下。
Sub Count_Rows()
Dim No_Of_Rows As Integer
No_Of_Rows = Range("B5").End(xlDown).Rows.Count
MsgBox No_Of_Rows
End Sub
上面的代码总是返回值1。
浏览 0提问于2021-04-18得票数 1
我有一个字符串，它包含如下值：
string str ="Abhigyan Prakash,Primeshow,NewsPoint,NCP,Inflation,सरकार,राहुल,प्राइम शो,न्यूजप्वाइंट,कमजोर,एनसीपी,अभिज्ञान प्रकाश,Rahul";
我使用了以下代码将其转换为数组列表：
ArrayList altags = new ArrayList( str.Split(','));
现在我想从非英语语言的arraylist中删除所有这些字符串(在我的上下文中，那些用“印地语”写的单词应该被删除)
浏览 3提问于2011-01-19得票数 4
回答已采纳
2回答
这可能很简单，但我最近才开始使用VBA。因此，我定义了大约10行的单个列范围，并将其命名为CB_CL_Values。
让我们假设范围是{1,2,1,3,2,1,1,1,1,3}，现在设置为将范围的每个值都更改为1。
Sub Unit_Options_Reset()
Range("CB_CL_Values") = 1
End Sub
假设我只想将值4更改为该范围的10，并保留第一个3。我该怎么写这个？
浏览 5提问于2014-01-15得票数 1
回答已采纳
我正在执行一个vba宏来从excel文档的工作表中获取数据，我这样做的方式是：
Worksheets("EN").Range("5A").value
但是由于某种原因，运行时错误1004被输出。如果我尝试循环工作表元素并查看名称或索引值，则可以正确获取所有工作表，但当我尝试获取.Range("5A").value 1004时，会输出错误。由于某些原因，value命令是带负"v“的，如果我尝试放置Value键，IDE会自动将键"value”改为"Value“。
什么可以解释这种行为？
谢谢。
浏览 4提问于2017-10-31得票数 0
1回答
我正在尝试编写一个VBA代码，以便每当某些单元格中的值发生变化时都会弹出一个消息框。
我想要监视的单元格发生了变化，因为它们链接到一个自动刷新的查询。我在网上找到的VBA代码仅在手动更改单元格值时有效，这将不起作用，因为单元格中的公式不会更改，只有显示的值会更改。
有人能帮我吗？
浏览 0提问于2021-02-15得票数 1
如何显示SQL请求的结果？
在Access中，SQL查询显示：
我的VBA代码只显示扇区名称。如何同时显示扇区和计数结果？
我的VBA代码：
sQuery = "SELECT Sector, COUNT(*) FROM Test WHERE Search = 'FR' AND LaDate = #20/10/2021# GROUP BY Sector"
Set dbRecSet = New ADODB.Recordset
dbRecSet.Open Source:=sQuery, ActiveConnection:=dbConn
If (dbRecSet
浏览 3提问于2021-10-20得票数 0
回答已采纳
我正在尝试使用VBA添加一个vlookup公式，但是，它对我不起作用。它引用了另一个工作簿，该工作簿的名称保存在一个名为FileName1的变量中。下面是我写的代码。有谁能帮忙吗？
WbkT3.Worksheets("Finance").Range("G2") = "=VLOOKUP(C2,[" & FileName1 & "]Divisor!$A:$F,3,FALSE)"
浏览 1提问于2014-05-08得票数 0
1回答
我需要写vba代码，其中单元格GQ4有公式
ActiveCell.Formula = "=SUM(CO4:CQ4)"
现在，excel数据中每个月都会添加新的月份，因此公式也会每月动态变化。下个月将会是
"=SUM(CP4:CR4)"
简而言之，它将其列选择拖出1列
请帮我写一个vba代码，将动态改变公式。
浏览 4提问于2016-02-01得票数 0
3回答
在A9中，我在excel中有一个名为“A9”的单元格。
我想提取VBA中的数字9，但我不知道如何提取。
我现在所做的是写y= 9，但是我想知道一种替代相同任务的方法，而不用写"9“。
有人能解决我的问题吗？
浏览 11提问于2022-09-14得票数 1
1回答
我正在努力使用我在VBA中构造的函数。我尝试在函数中引用的另一个表中使用它，但我得到了循环引用错误。有谁能帮帮我吗？这是我第一次在VBA中写代码，所以请理解错误是否为are...funny。
Function Dividend(row As String, col As Date) As Variant
Dim Table As Range
Dim Blgdata() As Variant
Dim v As Integer
Dim h As Integer, var As Date
v = 666
h = 27
Sheets(3).Activate
Set Table = Range(Ce
浏览 0提问于2017-06-10得票数 1
我在VBA (在MS Access中)中运行一个append-query，它看起来像下面的代码。当我在VBA中使用RecordsAffected-方法来跟踪插入了多少条记录时，当记录数超过大约90.000条或更多时会导致错误？(它说是某种堆栈溢出错误)
有趣的是，当我不使用RecordsAffected method时，查询就能正常工作。而且，当受影响的行数低于90.000行时，它也可以正常工作。
会出什么问题呢？这是VBA中的错误吗？
。
。
Dim dbs As DAO.Database
sql As String
iCount As Integer
Set dbs = Cur
浏览 0提问于2011-03-01得票数 0
回答已采纳
我真的需要帮助，找出我的excel vba有什么问题。这里完全是初学者。
基本上，vba代码将对工作表进行“筛选”。奇怪的是，当对其他类别进行筛选时，vba可以工作。但是在一个类别中，它只给出了运行时错误1004 (对象_worksheet失败的方法范围)。
调试模式将始终指向代码行：
Range(Mid(rangeToHide, 1, 199)).Select
以下是代码：
Private Sub cboPopulateDept_Change()
Dim sh As Worksheet
Dim rw As Range
Dim RowCount As Integer
Dim rangeToHi
浏览 3提问于2017-10-24得票数 3
提前谢谢你的帮助。我是VBA新手，我需要选择构建此代码的活动-basically的行头，这在VBA中似乎不起作用：
Dim C as range ("I4")
Dim R as C.CurrentRegion
cells(C.row,R.Columns(1)).Select
我不能使用C.End(xlToLeft)，因为左边有另一个表，虽然在两个表之间有一个空列，但这段代码会跳到左边的表中。而且，我的表的第一列不是A，我不能硬编码列号。非常感谢，如果你能帮忙！西尔维娅
浏览 1提问于2017-01-01得票数 0
回答已采纳
当PowerPoint崩溃时，这是非常令人沮丧的，因为我丢失了所有的vba代码(宏)，只有PowerPoint更改可能有备份。它发生了很多次，我不得不一遍又一遍地写代码，我知道它崩溃的原因，但没有办法修复它(只有在我一遍又一遍地手动保存演示文稿的情况下)。
所以我想知道怎样才能从vba PowerPoint中恢复丢失的宏。
浏览 0提问于2017-01-24得票数 0
我需要在Excel中列出具有给定值的表的所有列索引。 我使用了函数MATCH，但它只显示了他们找到的第一列。有人告诉我在MATCH函数中使用OFFSET，但我不知道怎么做。 这里显示了带图片的示例。我想写一个像MARK列一样显示结果的公式： example
浏览 27提问于2021-09-13得票数 0
1回答
我有一个数据验证列表
指的是我的各种工作表
我希望能够选择我希望查看/跳转到的工作表，并使用VBA按钮带我到该工作表。
这个可以吗？
PS:我想要一个按钮进入从下拉列表中选择的工作表
浏览 3提问于2016-06-19得票数 0
我有一张像这样的桌子
A B
ID1 data 123
ID2 data 234
ID1 data 456
ID2 data 567
我正在尝试找到为ID2检索data 567的最佳方法。在ID2上使用MATCH (带选项0)或VLOOKUP (带FALSE选项)可以让我访问第一条记录，但我想检索最后一条记录。
我正在使用Excel 2010。
ps:我不想使用VBA或操作数据(排序...)。
浏览 0提问于2012-03-07得票数 5
回答已采纳
我正在尝试设置一个动态打印范围，以便在从同一工作簿中的另一个工作表中填充的工作簿中打印工作表。我好像有麻烦了。我在Name Manager中设置了一个名为“横向”的命名范围，如下所示：
=偏移(‘幻灯片单张打印横向’！$A$27，0，0，COUNTA(‘幻灯片打印横向’！$A：$A)，COUNTA(‘幻灯片打印横向’！$1:1)
我被困在试图写VBA代码(我对VBA一无所知)我有这个.
Sub Printarea()
ActiveSheet.PageSetup.Printarea = "lateral"
End Sub
我得到一个错误“运行时错误'100
浏览 3提问于2012-11-25得票数 3
1回答
我是VBA Excel的新手。代码在其当前状态下工作，但注释部分会产生错误。为什么？
Option Explicit
Sub Matrix()
Dim x() As Variant: Dim y As Variant
ReDim x(1 To 2, 1 To 2)
y = 7
x = [{5, 13; 3, 8}]
x(1, 1) = y
'x = [{y, 13; 3, 8}]
End Sub
浏览 10提问于2019-10-22得票数 2
回答已采纳
2回答
大家好，我的VBA连接不起作用。所以在这里，我正在导入完整的页面，但是我只需要导入价格，因为我现在无法做到这一点--我正在从页面获取数据到一个页面，然后转移到不同的页面。
所以如果你们知道怎么做，请帮我解决这个问题。
Dim value As String
value = 161631397677#
For x = 1 To 2
Debug.Print value
With Sheet1.QueryTables.Add(Connection:= _
"URL;http://www.ebay.in/itm/" & "value
浏览 1提问于2015-04-16得票数 0
回答已采纳
我有一个excel电子表格，其中有一个我自己写的VBA脚本。
我经常必须对代码进行一些更改，并使用(ctrl-V)将此代码复制(ctrl-C)到按钮后面的表单中(通过单击事件)
当我在电子表格( VBA代码)中进行更改时，是否可以在Access过程中自动执行此操作，以便在Access 2007中导入此VBA代码？
浏览 0提问于2013-09-01得票数 0
我是vba的初学者，希望用它来自动化一个过程。我有一个计算机程序，它为我提供了一个excel电子表格，其中列中的数据量可以改变。例如，我可以有一次长度为9的列：
1
3.
2
4.
24
23
432
55
2
或者长度为5的列(注意:实际的列大小通常以千为单位)：
1
2
3.
4.
8
我想写代码来获取这个列，而不知道这个列有多长。类似于：
Dim list1 As Array
'I don't know how to find the upper bound
list1 = Range("A1:A" & Upper Bound).Value
任何帮
浏览 3提问于2015-07-11得票数 1
我正在查看一些VBA代码，但我对这一行感到困惑。
Set rngLookup = CurrWPWkSht.Columns("A").Find(rngLookup, lookat:=xlPart)
这一行是否意味着代码正在A列中找到rngLookup并将其设置为相同的变量？
浏览 0提问于2021-08-26得票数 2
回答已采纳
1回答
我正在搜索一个简单的vba代码，它可以打开查询的更改源提示，即xls工作表。每次更改源文件时，我都需要执行许多查询步骤。因此，基本上我希望有一个宏，为某个查询名称(我在工作簿中有许多这样的名称)执行此手动步骤:在查询编辑模式中，单击源代码更改按钮：
宏应该会打开提示，以便我可以手动选择xls文件：
此外，数据可以在具有不同名称的工作表中，因此我还必须导航到适当的工作表/表，以便打开“导航”提示，以便我可以手动选择：
浏览 0提问于2020-04-02得票数 0
我是个新手，开始在VBA中迈出一小步。我想创建一个宏，它打开CSV文件，并要求从第一个文件中选择一个范围(我需要选择一个列向量，该范围沿宏将是相同的)，从该列向量中提取数据，并将其粘贴为原始活动工作簿中的行向量(转置数据)。我尝试过很多东西，但我想我还是遗漏了一些知识。我想也许我需要在数组中创建一个数组，因为A(i)有不止一个元素，它本身就是一个数组。这是我写的：
Option Explicit
Option Base 1
Sub x()
Dim FileNames() As Variant, nw As Integer
Dim i As Integer, A() As V
浏览 3提问于2020-11-29得票数 0
1回答
我正在编写我的第一个VBA代码，用来将excel工作表中的两个数组与大量数据相加，但我想不出一种方法。
这就是我写的代码：
Sub sumTriangles()
Dim x As Variant, y As Variant
Dim MatchX As Long, MatchY As Long
MatchX = WorksheetFunction.Match(Sheets("Output").Range("D4").Value, Sheets("data").Range("A:A"), 0) + 1
浏览 5提问于2014-07-23得票数 0
回答已采纳
我写了一个代码，用vba excel创建一个图表。但是我不能做一个代码，我可以在同一个工作表中生成几个图形，也就是说，我有4列，我想创建4个图形。
<code>B0</code>
有人能帮我完成这项任务吗？
这是我的代码：
<code>A1</code>
浏览 24提问于2018-12-17得票数 2
使用VBA我可以：
设置了两个范围创建了一个包含所有范围名称的数组循环数组以便将格式应用于数组中的每个范围
但在网上.Interior.Color = vbRed
我收到以下错误：
运行时错误“424”：所需对象
码
Sub test()
Dim rng1 As Range, rng2 As Range
Dim strRanges As Variant
Dim i As Long
Set rng1 = Sheet1.Range("A1:D1")
Set rng2 = Sheet2.Range("C5:H5")
浏览 1提问于2020-02-05得票数 2
回答已采纳
基本上，我希望将两个单元格中的值组合起来，然后在单击按钮后在另一个新单元格中显示它。棘手的部分是每次输入新值时，它应该显示在下一行。例如，我将组合来自A1和B1的值并将其传递给C1。下次我再次输入A1和B1时，新值应该传递给C2。下面是我编写的代码：
Private Sub CommandButton2_Click()
Dim count As Integer
Dim rowNo As String
Dim val As String
Dim val2 As String
Dim sum As String
count = 1
rowNo = "C" + CStr(
浏览 2提问于2013-12-21得票数 0
回答已采纳
我正在编辑一个公司数据库和相应的3个字母的缩略语。我有一个宏，当一个新公司被添加到数据库中时，它会自动生成一个缩写词。
Function Abbv(pWorkRng As Range) As String
Dim arr As Variant
Dim xValue As String
Dim output As String
xValue = pWorkRng.Value
arr = VBA.Split(Trim(xValue))
For i = 0 To UBound(arr)
output = output & V
浏览 2提问于2017-06-06得票数 0
此是用来破解任何VBA工程的密码的。解释说，即使在执行VBA模块后，公共变量也会保持其值不变。是否有可能修改以下VBA代码(存储在模块级或类级)，以防止执行(前述VBA代码)破解项目密码？
Public Dim HookBytes(0 To 5) As Byte
Dim OriginBytes(0 To 5) As Byte
Dim pFunc As LongPtr
Dim Flag As Boolean
ReDim HookBytes(0) As Byte
ReDim OriginBytes(0) As Byte
pFunc = 9223372036854775807 ' http
浏览 0提问于2018-01-15得票数 2
我有带不同传感器的Wago 750-880。有人已经用Codesys写了一个程序来控制它。我想返回(我有Java背景:D) -在驱动程序中写一些输出变量，例如保持寄存器。我想稍后在这样的SSI页面上读取这些变量(参数
<!--#READPI ADR=QX4.5&FORMAT=%X-->
我没有任何PLC经验:(我如何写入保持寄存器？
提前谢谢你
浏览 9提问于2017-05-05得票数 1
我认为，在Excel中使用本地化的范围名称可能比使用全局范围名称更好。在Excel 2003中，当使用(我称之为)A列上方左上角的Name输入框创建区域时，我知道它们是全局的。我理解这是可能的，尽管在大多数情况下，在工作表上本地具有相同名称的范围是不可能的，这将在Excel和VBA中造成非常混乱的行为？
我已经在谷歌上搜索过了，但没有找到关于这个主题的文章(之后我可能不得不写一篇我自己的博客)。我想知道对其他专业Excel开发人员做什么以及为什么做的想法？
浏览 0提问于2010-12-09得票数 2
回答已采纳
我有一个excel文件。每一次A列都有一个可更改的行数量，这就是为什么我需要建立动态公式。例如；
我想在B1上写"=LEN(B1)“公式。当双击单元格的右下角时，直到A列值结束为止。这就是为什么在所有这些过程之前，我在单元格C1上写了"=COUNT(A:A)“。
在我的VBA里，我想写；
Dim TEMP As String
TEMP = Range("C1").Value
Range("B1").Select
ActiveCell.FormulaR1C1="=+LEN(RC[-1])"
Selection.AutoFill De
浏览 1提问于2015-12-10得票数 0
回答已采纳
我想知道有没有人能给我一些建议。我有一个列，每个单元格中的数据排列如下：
Column E
E1- name-age(nickname) name-age(nickname) name-age(nickname) ....
E2- name-age(nickname) name-age(nickname) name-age(nickname) ....
etc...
问题是所有的内容都在一列中，我知道我可以使用文本到列功能，并用空格来分隔它们。然而，有没有更优雅的方法来做到这一点？如果可能的话，我想通过vba来做这件事。
我的最终目标是将每个“name-age(昵称)”对
浏览 1提问于2013-02-06得票数 0
回答已采纳
1回答
对于Word 2019，我可以在VBA中使用正则表达式：
Dim RegEx As New RegExp
Dim Matches As MatchCollection
RegEx.Pattern = "[\d\w]+"
Text = "HelloWorld"
Set Matches = RegEx.Execute(Text)
但是如何匹配所有Unicode字符和所有数字呢？
\p{L}在我的PHP中运行得很好，但在Word 2019的VBA中，这并不适用于我。
我想找到有字符和数字的单词。因此，在PHP中，我使用这个[\p{L}\p{N}]+。在VBA中，我可
浏览 3提问于2020-05-25得票数 1
回答已采纳
我将一个文件导入到R中，假设行名为“研究的小时数”。它没有将小时学习导入R中，而是导入了名称顶部带有恼人的` `的Hours Studied。如何删除它？ 我试着做行名(数据)<-“小时研究”。但它仍然返回`Hours Studied`，而不是所研究的所需小时数。 在这篇文章中附上了一张图片，以供澄清 ?
浏览 40提问于2020-10-16得票数 0
我有一个Excel s/s，它的后台有一些我自己编写的简单的VBA。里面的表格大约有5000行乘6列，根据用户的选择查看特定单词或字符出现的频率的排名-这是一种语言工具。宏只允许用户每次增加一个等级；逐行显示答案；或者从头开始(将等级设置回1)。
我在Google Sheets中有一个带脚本的工作版本，它也可以工作-在脚本中编程并不是很难学会，因为这是非常基础的，而且我有VBA背景。下面的脚本示例，虽然我认为这不是问题所在--可能是我对google脚本的一般工作原理的理解。
首先，调整学习级别的选择需要15秒(这不依赖于脚本)- excel它大约是5秒-有很多countifs和排名公式。在脚本
浏览 3提问于2020-05-19得票数 0
如果我用10个值填充vba中的一个对象，并将其粘贴到已定义为200行长的范围中，这10个值是否会在预定义的范围内反复复制？
注意:填充和粘贴是通过vba代码完成的，范围在excel中定义。
这似乎发生在excel vba 2007中，但不是在2010年。需要修复2007年的问题。非常感谢您的意见..
在广告中谢谢！
浏览 2提问于2012-10-20得票数 0
回答已采纳
arr1 = Array("chocolate","icecream","sweet")
For Each elem In arr1 '<--| loop through 1st array list
fooditem = fooditem + WorksheetFunction.CountIfs(.Columns(1), "sugar", .Columns(20), "yes", .Columns(31), elem)
Next elem
浏览 3提问于2016-12-30得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
