调整存储在VBA数组中的值
VBA（Visual Basic for Applications）是一种基于微软的Visual Basic编程语言，用于在Microsoft Office应用程序中编写宏代码和自定义功能。在VBA中，调整存储在数组中的值可以通过以下步骤完成：
- 声明一个数组变量：使用Dim语句声明一个变量来存储数组。例如，使用以下代码声明一个整数类型的数组：
- 声明一个数组变量：使用Dim语句声明一个变量来存储数组。例如，使用以下代码声明一个整数类型的数组：
- 初始化数组：根据需要，可以使用ReDim语句为数组分配所需的大小。例如，使用以下代码初始化具有5个元素的数组：
- 初始化数组：根据需要，可以使用ReDim语句为数组分配所需的大小。例如，使用以下代码初始化具有5个元素的数组：
- 赋值给数组元素：可以使用赋值语句将值存储到数组的特定元素中。例如，使用以下代码将值1赋给数组的第一个元素：
- 赋值给数组元素：可以使用赋值语句将值存储到数组的特定元素中。例如，使用以下代码将值1赋给数组的第一个元素：
- 调整数组元素的值：可以使用赋值语句直接修改数组中特定元素的值。例如，使用以下代码将第一个元素的值修改为2：
- 调整数组元素的值：可以使用赋值语句直接修改数组中特定元素的值。例如，使用以下代码将第一个元素的值修改为2：
- 使用数组中的值：可以在代码中使用数组中的值进行各种操作。例如，使用以下代码打印数组中的所有元素：
- 使用数组中的值：可以在代码中使用数组中的值进行各种操作。例如，使用以下代码打印数组中的所有元素：
VBA是微软Office套件的一部分，因此在云计算领域中，与VBA相关的应用场景相对较少。然而，如果您希望在云中使用基于VBA的宏代码，您可以考虑使用腾讯云的云服务器（CVM）来托管Microsoft Office应用程序。使用腾讯云云服务器，您可以在云端运行VBA宏，实现自定义功能和自动化任务。
腾讯云云服务器产品介绍链接地址：腾讯云云服务器（CVM）
请注意，以上答案仅涵盖VBA数组的基本操作和腾讯云云服务器的相关信息。对于更复杂的问题和具体的应用场景，可能需要进一步探索和研究相关技术和产品。
相关·内容
2回答
许多人在Excel/VBA中广泛使用数组来存储数据列表。但是，在我看来，集合对象要方便得多(主要是:不需要重新/定义列表的长度)。
所以，我诚恳地问自己是否遗漏了什么?为什么其他人仍然使用数组来存储数据列表？这仅仅是过去的宿醉吗？
浏览 2提问于2012-05-14得票数 47
回答已采纳
作为VBA的初学者，我对以下问题感到困惑：
Dim DynArray() As Double
ReDim DynArray(0 To 0)
DynArray(0) = 100
ReDim Preserve DynArray(5 To 5) 'subscript out of range
DynArray(5) = 100
为什么不起作用？以及如何在VBA中更改数组的上界和/或下界，同时保留原始数组的值？谢谢。
浏览 5提问于2016-05-08得票数 0
回答已采纳
3回答
存储数据的最佳方法是什么？
、、、、
我正在使用VBA创建一个Word用户表单。我在程序代码中使用数组存储几个配置，如下所示：
Public arrConfiguration[2, 3] as Integer
其中，索引2代表类型0到2，索引3代表每个类型的属性0到3。
但是，我计划修改这个程序以获得更多的数据(比如100个不同类型的数据，每个数据有50个属性)。我的问题是，我是否应该继续在程序中使用数组存储数据，这样它就会成为
Public arrConfiguration[99, 49] as Integer
还是将其存储在Excel文件中，并使程序打开Excel文件并重复访问单元格？哪一个更好？
谢谢。
浏览 6提问于2015-09-14得票数 1
回答已采纳
2回答
VBA数组和运算符
、、、、
我正试着用VBA为excel写几行代码，下面是代码的VB.Net版本。
ThisVariable <<= 8
Variable.Add(ThisVariable)
如何在VBA中编写这些代码行？VBA没有"<<=“运算符，也没有数组的.Add属性。任何帮助都将不胜感激。
浏览 0提问于2013-03-31得票数 0
1回答
在VBA中，我需要导入几个R生成的CSV文件。但是，split函数不能正常工作并给出了Type mismatch。我最好的猜测是: VBA在每个导入的行之间添加了双引号。所以第一行变成了" 47.27284, 130.5583, 44.826609, 189.905367"。我尝试使用replace或remove the first and last character删除双引号，但错误仍然存在。对这个问题有什么建议吗？
CSV文件
dose_BMD_r, dose_ED_r, dose_BMD_c, dose_ED_c
47.27284, 130.5583,
浏览 2提问于2016-07-17得票数 1
回答已采纳
1回答
我不知道解决这个问题的最好办法是什么。我在我的工作簿中有很多计算，我试图使它尽可能快和轻。
所以我的问题是，如果我有5个列，总共有200个值，那么寻找副本的最佳方法是什么？我真的不想为每个单元格制作一个=countif，而且在我读到的任何地方，人们都说VBA不是最好的方法，所以您有什么建议？我需要在VBA中使用结果，所以我想知道颜色设置是否是一个解决方案，因为这看起来是轻快的。
浏览 4提问于2017-10-17得票数 0
回答已采纳
代码如下：
For R = 5 To 145
If Worksheets("CHPSpecs").Cells(R, 4).Value >= 0.9 * CHPSize And Worksheets("CHPSpecs").Cells(R, 4).Value <= 1.1 * CHPSize Then
j = 0
ReDim Preserve eleOutput(j)
eleOutput(j) = Worksheets("CHPSpecs").Cells(R, 3).Value
End If
Nex
浏览 0提问于2015-03-22得票数 0
我想写一个从第二个excel文件中访问数据的excel-vba模块。我首先想将第二个文件打开到vba-range对象，然后将worksheet-range复制到vba-range- object，然后关闭第二个文件。
数据处理现在只在vba-range对象上进行。
我尝试了以下几种方法：
Set oMeasuresWorkbook = Workbooks.Open(sMeasuresFileName)
Set oSrcRange = oMeasuresWorkbook.Names("MEASURES").RefersToRange
MsgBox oSrcRange(1, 1)
浏览 0提问于2017-04-14得票数 1
在Excel 2003中，我有这样的表格：
如何创建具有可扩展单元格范围的命名表(不使用VBA)？
浏览 1提问于2012-09-17得票数 0
我刚刚开始了一项新工作，正在尝试使用excel中的VBA在多维数组中存储值。
因此，我首先希望在列中搜索值，当它们出现时，我希望将它们存储一次，并分配一个产品编号，每当它在该列中遇到新的唯一字符串值时，该编号将递增。然后只需将数字打印到单元格，并仅在其递增时更改它。
值将是Strings (产品样式)。产品编号将是一个数字。(Int)
是否可以在VBA for excel中执行此操作。我在网上读到，你不能在同一数组中使用不同的数据类型。
抱歉，VBA的新手，任何帮助都将是伟大的。如果我想在excel中使用普通函数，请让我知道。
浏览 0提问于2020-07-03得票数 0
我已经在Php和(看起来类似) C++中找到了这个问题的答案：“当关系存在时，如何给数组分配一个排名号”。我还找到了一些关于Excel的PercentRank的答案，用的是我不知道的语言。
有人能帮我在VBA中做到这一点吗？我需要在Access报表中根据12个值计算PercentRank，但我无法使用Excel。下面是我想要做的一个例子：
Per Val %Rank
01 80 0.82
02 74 0.45
03 88 1.00
04 60 0.00
05 86 0.91
06 68 0.18
07 6
浏览 2提问于2011-01-26得票数 0
1回答
For循环VBA向量
、、、
我正在尝试使用for循环在VBA中创建一个向量。我的问题是，VBA不允许我对第一个矢量坐标使用不同的方程。当我尝试运行它时，我得到了一条错误消息"expected array“。
'radius calculations
r(1) = (al * Log(al) / (al - 1)) * rb ' middle radius of block 1, trying to calculate first entry
'in r-vector, since this equation is different from the rest
r_m(1) = rb &#
浏览 0提问于2017-04-01得票数 1
有没有一种将.Range对象完全存储在内存中的方法？
我希望将范围存储为字典值，然后能够在其他地方解压这些范围。但在拆包之前，原有的范围将被修改。
这是我在字典中存储范围的代码：
Sub range_to_dict()
Application.EnableEvents = False
Dim d As New scripting.Dictionary
Dim rng As Range
Dim rw As Range
Dim paste_loc As Range
Set rng = Range("A1:B13")
Set paste_loc = rng.Offset(rng
浏览 0提问于2018-11-15得票数 0
回答已采纳
4回答
我想在vba中有一个数组列表，因此我在excel vba中声明了一个变量，如下所示：
Dim Students(10) as variant
现在我想在学生列表中存储号码。这些数字不是连续的。有时就像这样：
Students(2,7,14,54,33,45,55,59,62,66,69)
如何在vba中执行此操作？另外，我如何访问列表项？
浏览 1提问于2012-01-27得票数 15
回答已采纳
我有一个Excel表格，我正试图进入一个MySQL数据库。
我使用VBA将数据作为文本写入文件，然后将其上传到数据库中。
在工作表的单元格中，有经过颜色编码的字符串。
颜色有一定的含义，所以当我将值移到数据库中时(我在数据库中有一个特殊的列来枚举颜色)，所以我希望保留它们。
问题是，有些单元格有用逗号分隔的字符串，在逗号的一边，字符串是黑色的，另一边是蓝色的(反之亦然，单元格中可能有更多的逗号和字符串)。
我试过的
我可以在VBA中使用Split函数很好地提取字符串，但这就失去了字符串的格式。
我可以使用Range("mycell").Font.ColorI
浏览 1提问于2015-09-23得票数 8
回答已采纳
我编写了一个VBA脚本/宏，当在特定的单元格范围(n )中检测到更改时，该脚本/宏将运行。然后，它根据在第一个范围中检测到的内容改变另一个范围(Nx1)中的值。
这一点很完美..。但随之而来的是古老的删除撤销堆栈问题。不幸的是，用户需要有能力撤销他们最后的10次左右的操作。
我的理解是，只有当VBA直接编辑工作表上的某些内容时，撤消堆栈才会被清除--但是如果VBA只是在后台运行而没有编辑工作表，它就会被保留。
，所以我的问题是：是否可以使用in单元公式(如下所示)从VBA数组中提取值？
'sample of in-cell function in cell A3
=function_t
浏览 2提问于2022-08-16得票数 2
1回答
我正在尝试将用C DLL编写的BSTR字符串发送到Excel。
问题：
Excel VBA从C DLL接收BSTR。我可以在VBA中间窗口和调试窗口中看到BSTR。
如果我试图将此字符串分配给工作表中的单元格，则单元格内的值是字符串("S")的第一个字母。
当我尝试分配一个带有BSTR值的单元格时，它似乎使用了一个指向字符串开始的指针。我不知道如何显示整个BSTR字符串。
C代码：
BSTR _stdcall ReturnString(void)
{
return SysAllocString(L"String From DLL");
}
VBA代码：
浏览 5提问于2016-11-28得票数 2
这将是一个很长的帖子，但我不确定什么信息是必要的，以正确解释这个问题。我有一个C++ DLL，我正试图从Excel中调用它。当我调用Excel时，其中一个函数会导致Excel与"Microsoft已停止工作“崩溃。
头文件：
#include <string>
namespace XYZ_ProjectWise
{
class FileOperator
{
public:
static __declspec(dllexport) long __stdcall initialize(std::string dbName);
浏览 1提问于2013-10-24得票数 1
回答已采纳
2回答
这是我第一次在VBA中使用数组。我试图根据一定的条件检查数组的值。
我通过检查我的数组值。窗户是空的。我做错什么了？
Option Explicit
Sub test()
'define dynamic array
Dim sn As Variant
Dim i As Long
'Loop through all the row
For i = 1 To Rows.Count
If Cells(i, 12).Value = "Renewal Reminder" And Not IsEmpty(Cells(i, 12).Value) Then
浏览 0提问于2017-12-29得票数 1
回答已采纳
1回答
我熟悉以引用的方式将论点传递给程序。另外，ParamArray还允许我通过引用将0或多个参数传递给过程。然而，这种做法使我怀疑是否有办法保留对程序范围以外的一个或多个变量的引用。当我看到VBA Array函数是这样声明时，我第一次看到它的希望是：
Array(ParamArray ArgList() As Variant)
因此，我整理了以下测试代码：
Private Sub Test()
Dim a As Object
Dim b() As Variant
ParamArrayTest a
Debug.Print TypeName(a) ' O
浏览 3提问于2017-04-20得票数 1
如何解析AppleScript和Word (用于MAC) VBA之间的值？我的意思是将值从Word VBA发送到AppleScript，同样也将值发送回VBA。
其思想是将一个值(字符串)解析为AppleScript。它将处理该值并将输出值解析回Word VBA。解析后的值必须是一个数组。
例如,
Dim arrStr() As String
arrStr() = MacScript("<code here>")
浏览 1提问于2013-07-08得票数 1
回答已采纳
有没有办法将特定的单元格存储到VBA中某个范围内的新变量中？我的意思是。
假设我将下面的数据设置为一个称为"numbers“的范围。
现在，在VBA中，对于每一行，我希望提取每个单独的单元格值，并将每个值分配给不同的变量。然后对下一行再重复一次。
从本质上讲，我希望使用给定行中的值来做一些事情，然后在下一行中再次重复。
这有意义吗？
这就是我一直在玩的.但是我不知道如何将给定行中的每个单元格分配给一个新变量
Public Sub try()
Dim rng As Range
Dim row As Range
Dim cell As Range
浏览 2提问于2018-11-29得票数 1
2回答
我正在尝试在VBA中使用Xlookup。我以前曾在Excel工作表中将其用作公式，但在VBA中，我一直坚持使用它来返回一系列值。
例如，由于Xlookup仅返回单个值，即B列中的值，因此下面的代码可以很好地工作：
Range("E1") = Application.WorksheetFunction.XLookup(sValue, Range("A:A"), Range("B:B"), "Tag Not Found", 0, 1)
一旦我将返回范围增加到超过一列，我就得不到任何返回：
Range("E1") = A
浏览 33提问于2021-06-20得票数 0
2回答
在最后一行插入文本数组
、、、、
不管怎样，我都搞不清楚这件事。我有一个摘要电子表格，它是根据同一工作簿中的多个其他工作表编译的。在主表上，我找到了最后一行，需要插入带有文本的行，但无法插入。卡住了。我使用一个数组，因为这些字段永远不会改变。但只显示数组的第一个值，而不显示其余的值。
下面是我的代码：
sub Headers()
Dim last_row As Long
Dim Header() As Variant
Header = VBA.Array("koko", "momo", "dodo", "gogo")
las
浏览 2提问于2019-03-14得票数 1
回答已采纳
1回答
最终，我想做一整堆复选框的启用和解锁/禁用和锁定，基于这些值在多选择查找中被选中，以及允许多少。要做到这一点，首先我需要知道如何通过vba获取这些多选择查找中的数据。我想是吧。
我尝试将vba中的变量设置为这些字段之一的值，但它所接受的唯一数据类型似乎是variant --即使这样，我也无法获得即时窗口来告诉我收集到了什么。
我需要vba能够计算出某个标签是否是多选择字段中列出的标签之一。
现在，关于进一步的解释/背景，真实的例子:让我们说，你可以选择一本书的颜色，根据作者和类型的书“拥有”。每个作者和类型都有不同的颜色，你可以选择，而且范围有限。
让我们假设这本书是鲍勃写的，他得到了红色、
浏览 0提问于2018-05-04得票数 1
回答已采纳
1回答
我正在用VBA编写一个sub，它试图查看一个数组中的每个元素，并查看它是否显示在另一个数组中。第一个数组位于表A的A2:A325行，第二个数组的值超过250,000个。我一直收到运行时错误9:下标超出范围。我的代码如下
Private Sub ICD_DRG_Converter()
Dim StudyDRG() As Variant
Dim StudyICD10() As Variant
Dim element As String
Dim lLastRow, i, j, k As Long
Dim ICD10Code As String
Worksheets("Accepted
浏览 0提问于2017-03-24得票数 1
2回答
好的，我在Excel中有一个可变大小的数组。使用vba，我想找出是否有任何重复的值，这样相邻的值是相同的，而不仅仅是在整个列中。
我知道在excel中你可以使用if语句，但你怎么能使用for循环将其扩展到整个工作表。
我是vba的新手。这是我的第一次尝试，但它没有工作，我不知道如何继续。
total是用户输入的值
ok = True
For j = 2 To 24
For l =1 to total
If ActiveCell.Offset(j, l).Select = ActiveCell.Offset(j + 5, l)
And ActiveCell
浏览 1提问于2015-08-05得票数 1
你能给我解释一下为什么这个简单的VBA代码在最后一行失败了(“下标超出范围”)：
Dim test() As Variant
ReDim test(0, 1)
test(0,0) = "key"
test(0,1) = 1
ReDim Preserve test(1, 1)
浏览 5提问于2011-10-21得票数 5
回答已采纳
1回答
我正在执行温度分布曲线，需要尽可能地自动化该过程。我需要确定零件在一段时间内真正开始加热的时间。目前，我通过滚动浏览数千个数据点来手动完成此操作，直到我看到数据点有所增加。该零件将在室温下放置一段时间，然后慢慢开始增加。
在~1°C时，应该会有轻微的增长，这意味着如果B327读取27.5°C，而B328读取28.6°C，这将是我的起点。
一旦温度升高，将显示时间，并进行进一步计算。
我使用Excel进行数据分析，我更喜欢使用公式而不是VBA，这样文档就更容易维护，以备将来使用。
浏览 18提问于2019-11-05得票数 0
2回答
当名称在第8列中有"X“时，我需要编写一个程序将名称(位于第2列中)存储在数组中，但我在将名称放入数组时遇到了困难。当我现在运行它时，我得到数组中的值的一个空白值。经过一些调试后，我发现选择数组中哪个点的i值原来是0，这不是我想要的。
下面是代码：
Dim rowCount As Integer
Dim duplicateNames(100) As String
Dim duplicateNameCounter As Integer
duplicateNameCounter = 0
'Count the number of rows'
rowCount = W
浏览 0提问于2014-06-30得票数 1
回答已采纳
我目前有一个宏，它使用一个表单，以便在外部程序的帮助下执行一些计算。它所做的就是将一些工作表值写入一个文件，供另一个程序，一个外部.exe使用，作为输入(该程序是封闭的源)。然后编写一个自定义格式输出，我用VBA将其报废，然后将返回传递回工作表。宏通过指定源和目标范围的userform调用。
我要做的是用UDF替换通过userform调用计算的方法。使用GUI方法，更新计算非常麻烦；也不可能知道在目标范围数据中执行了什么计算。由于性能考虑，选择了这条路径而不是UDF。由于计算非常慢，我不能仅仅重用用户表单代码中调用外部程序作为UDF并使用它完成的部分，因为它太慢了。VBA中似乎没有异步执行(与
浏览 8提问于2012-01-05得票数 2
回答已采纳
我得到了一个正在工作的VBA函数，但我不明白它是如何工作的，我很感谢您的帮助，因为按照它的编写方式，微积分是非常长的(基本算术*15000行)。
我的问题来自于双变量Qty_Level的定义，其定义如下：
Dim Qty_Level(30) As Double
我从来没有见过像这样定义的变量，有几个圆括号像一个函数。这是我的密码：
Sub cumul()
Dim i As Long
Dim j As Integer
Dim Qty_level(30) As Double
Dim Col_Niveau As Integer
Dim Col_Quantit
浏览 1提问于2013-10-14得票数 1
回答已采纳
我在Excel VBA中使用以下代码复制Excel工作表进行计算：
Dim Store1Sheet() As Variant
Store1Sheet = Range("A1:D99")
请您建议如何将多个Excel表格复制到一个变体，例如StoreMultiSheet。非常感谢。
浏览 0提问于2012-08-29得票数 0
1回答
请有人解释一下在VBA中数组的工作方式是否不同。这里的数据是如何存储的。我正在尝试把它转换成python
在下面的VBA代码中，数据是如何存储在这里的数组中的？如果是fldinfo(i)="NEW_NAME"，那么我可以看到数据存储在特定的索引位置上。但是，在Name中添加fldinfo(i).Name会让我感到困惑。
我是VBA FYI的新手，并试图将其转换为python。
Type FIELDCB
Name As Long
type As Integer
length As Integer
decimals As Integer
浏览 4提问于2022-03-29得票数 -2
1回答
我有一个C++ DLL；我试图在VBA中调用一个导出函数，该函数将返回一个数组。为了避免将SAFEARRAY作为返回类型处理，我选择通过引用将数组传递到函数中，并让函数修改该数组的值。但是VBA实现不返回修改后的值，即使我使用ByRef传递数组。
标题：
namespace myProject
{
class FileOperator
{
public:
static __declspec(dllexport) void __stdcall testArray(long* docArray);
};
}
执行情况：
#include "s
浏览 1提问于2013-10-28得票数 1
回答已采纳
我试图根据VBA中的某些标准在工作簿中创建各种工作表的pdf，我的当前代码是
Sub ExportAsPDF()
Dim FolderPath As String
FolderPath = "C:\Users\USER1\Desktop\PDF\pdftest"
'sheet names in ""
Sheets(Array("SHEET1","SHEET2","SHEET3")).Select
ActiveSheet.ExportAsFixedForma
浏览 2提问于2021-06-01得票数 0
回答已采纳
该代码在Solidityv0.6编译器中给出了以下错误，但在编译器v0.5中运行得很好：
TypeError:成员“长度”是只读的，不能用于调整数组的大小。nodes.length = 0；
pragma solidity >=0.4.22 <0.7.0;
contract TestNode {
uint[] nodes;
function createNode(uint data) public {
nodes.length = 0; // This line gives the ERROR
nodes.push(data);
浏览 0提问于2020-03-21得票数 8
回答已采纳
在C#中，可以很容易地将一个拆分字符串拆分成多个字符，一个可以提供一个拆分字符数组。我想知道在VBA中实现这一目标的最佳方法是什么。我通常使用VBA.Split，但是要拆分多个字符，需要对结果进行钻研，并将元素细分。然后，一个人必须重新维数组等，相当痛苦。
违禁品
请只回复VBA。如果愿意，可以使用.NET集合类()。如果您愿意，可以使用JSON，XML作为拆分段列表的容器。如果您愿意，可以使用简陋的VBA.Collection类，甚至可以使用Scripting.Dictionary。如果您愿意，甚至可以使用伪造的记录集。
我非常清楚，我们可以编写一个.NET程序集来调用.NET String
浏览 0提问于2018-11-04得票数 3
1回答
动态数组的问题
、、
作为VBA的新手，我非常了解数组，特别是动态数组是如何工作的。我是一名工业工程专业的学生，所以我的大部分代码都是用MatLab完成的。
我的问题是:为什么下面的代码总是出现运行时错误'9‘"Subscript out out range“：
Sub FunWithArrays()
Dim DynArray()
Dim i As Integer
Dim j As Integer
j = 1
For i = 1 To 10
DynArray(j) = i
j = j + 1
ReDim DynArray(UBound(DynArray) + 1)
浏览 2提问于2014-06-14得票数 1
在我的代码中，我使用len()函数来获取分配给变量的数据内容的长度。在这里，我发现了一些奇怪的行为--但是先看看我的代码，然后再看看我的注释/问题。
Dim Array(1 To 3) As Integer
' some code
Array(1)=345
' some code
If len(Array(1)) = 3 Then
' do this (here is the expected code bunch)
Else
' do this (and here the unexpected code bunch)
End If
谷歌
浏览 2提问于2022-10-10得票数 0
回答已采纳
我有一个实现自定义单元格的UITableViewController
CustomTableViewCell *cell = [tableView dequeueReusableCellWithIdentifier:CellIdentifier];
在我声明的CustomTableViewCell.h文件中
@property (nonatomic, weak) IBOutlet UISlider *slider;
它连接到我的故事板中的滑块和一个IBAction，当滑块被调整(值被更改)时，它会改变单元格的背景。我的问题是，当我从表视图中滑下时，一旦我的单元格退出队列，它就会随着滑块
浏览 2提问于2014-09-10得票数 0
2回答
有没有一种方法可以避免将零作为内部a循环的一部分？作为一个可笑的测试，我尝试了一个条件来停止乘法，如果它遇到一个零，当然这比只做乘法要慢。我的偏好是让LU矩阵保持不变，而不是重新排列以使零消失(稀疏)。在本例中，语言在转换为VB.net之前是VBA。
For k = 1 To i - 1
If LU(j, k) <> 0 and LU(k, i) <> 0 Then temp = temp - LU(j, k) * LU(k, i)
Next k
谢谢。
浏览 1提问于2015-09-23得票数 0
1回答
我花了相当长的时间试图找到一个解决方案，但我似乎无法让它发挥作用。情况如下：
我正在设置一个c# com库，以供vba宏使用。c#库方法将两个数组作为参数，并返回一个与第一个参数大小和类型相同的数组。下面是c#代码(接口和实现)：
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Runtime.InteropServices;
using System.Reflection;
using
浏览 2提问于2015-10-26得票数 2
回答已采纳
我有一个表，其中一列偶尔包含由逗号(单位)分隔的数字序列。我想找到一个脚本，它将计算该单元格中的值的数量(值)，然后将相邻的单元格除以该值，最终替换该单元格的值(NeedResult，替换值)。
我玩弄过公式，但我的VBA技能还很基础...如有任何帮助，非常感谢！
表格图像在此处
浏览 0提问于2018-08-29得票数 0
2回答
我想知道是否有一种简单快捷的方法将单元格位置的行号存储到数组中。我只用'.Address‘vba函数存储了整个单元格的位置，但我不想引用这些列，这样我以后就可以在sub中手动处理数组了。
浏览 2提问于2011-06-30得票数 1
回答已采纳
我正在尝试计算(在VBA Excel中)包含超过65536个元素的数组的平均值和StDev。如下所示：
Mitja =数组(worksheetfunction.Average()) DesvTip =worksheetfunction.StDev(数组())
当数组的维数小于65536的时候，没有问题，但是当它更大时，它会给我一个错误！
我知道这个VBA函数不能处理超过65536个数据，那么如何在VBA中获取这些参数呢？
感谢您的评论。非常感谢！:))
浏览 2提问于2013-02-25得票数 0
1回答
我正在使用VBA在excel中创建一个动态的工作表目录，我想动态地调整它的大小。如果添加了新数据，它确实会调整大小，但如果删除数据，则不会调整大小。这是我的代码：
Sub update_directory()
Application.ScreenUpdating = False
Range("Directory").Select
Selection.ClearContents
Range("AA1").Select
ActiveCell.Formula2R1C1 = "=TRANSPOSE(SheetNames)"
Sheet1.Calculat
浏览 8提问于2022-07-17得票数 0
回答已采纳
我在表格“示例”中的H列中有数据，我想根据vlookup的结果更改为工作表"List“。
所以vlookup是：=VLOOKUP(H23，List!A:C,3,0)。
但是，我在这个工作簿中调用了另一个宏，所以我想将几个vba宏组合成一个宏。
因此，我希望表格“示例”中H列中的数据根据vlookup到sheet "List“的结果进行更新。
这有可能吗？
任何帮助都将不胜感激。
浏览 5提问于2015-08-09得票数 0
回答已采纳
我想知道如何在VBA中将单个向量指定为动态多维数组中的特定列/行。
我的意思是，如果我运行以下代码: Dim m1()作为变体
ar1 = Array(1, 2)
ar2 = Array(4, 5)
ar3 = Array("a", "b")
m1 = Array(ar1, ar2, ar3)
我得到了这样的东西：
m1是一个变体(0到2)，在每个单元格中，我有一个维度2的数组，而不是获取：
m1作为一个变量(0到2，0到1)，换句话说，是一个矩阵，如果我将矩阵定义为变量(0到2，0到1)，然后分别填充每个单元格，我就会得到这个矩阵。如下所示：
浏览 1提问于2017-01-31得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
