Tag: 数组

VBA数组长度取决于用户input

我希望创build一个简单的双打VBA数组，但我希望数组的长度由工作表的单元格值指定。 我试着做： Dim NIteration As Integer: NIteration = ActiveSheet.Cells(16, 2).Value Dim myArray(1 To NIteration) As Double 它失败，出现这个错误：“需要不断的expression”

在二维数组中的excel匹配值（获取行）

我在我的Excel表中有以下结构。 EFGH ——— ——— —— ——- 2 | blah sometext atext smth 3 | textval accc 4 | test avfr 5 | check 6 | ertyui 7 | 你可以build议使用EXCEL函数 （ 而不是VBA ）获取匹配string的行吗？ 例如：给定的test我需要回到4 ，给予ertyui 6 我需要： 在这个二维数组的所有列中进行查找 只在一个小区有function

按位置移除数组中的元素

我想弄清楚如果从一个数组中删除一个元素，如果它在某个位置。 我们还需要调整数组的大小。 为了让示例更容易，我们尝试删除arrays中位置1的任何颜色（“绿色”，“蓝色”，“红色”）。 Sub Example() Dim pos colors = Array("Green", "Blue", "Red") pos = 1 colors(pos).Delete 'obviously this doesn't work but what would the correct protocol be? End Sub

将数组写入一个范围。 只获得数组的第一个值

我想写一个数组到一个范围，我已经尝试了几种方法，但无论如何，我总是只获得一次又一次的数组的第一个值。 这里是代码： Option Explicit Sub test() ActiveWorkbook.Worksheets("Sheet1").Cells.Clear Dim arrayData() As Variant arrayData = Array("A", "B", "C", "D", "E") Dim rngTarget As Range Set rngTarget = ActiveWorkbook.Worksheets("Sheet1").Range("A1") 'this doesn't work rngTarget.Resize(UBound(arrayData, 1), 1).Value = arrayData Dim rngTarget2 As Range Set rngTarget2 = ActiveWorkbook.Worksheets("Sheet1").Range(Cells(1, 5), Cells(UBound(arrayData, 1), 5)) 'this doesn't work either rngTarget2.Value = arrayData End Sub […]

我不希望我的Excel加载项返回一个数组（而是我需要一个UDF来更改其他单元格）

我已经创build了一个Excel加载项，并且这个加载项的function之一，可以说New_Years目前需要2年时间，并且在这两年之间以Excel中的一个数组forms输出每一个新年。 因此， New_Years(2000,2002)将在2000年1月1日，2001年1月1日和2002年1月1日返回最后一个小区。 问题是我必须知道那个时候会有3个date，select3个单元格，在顶部单元格中input我的公式，然后Ctrl + Shift + Enter来填充数组。 我使用XLW版本5将我的C ++代码转换为.xll文件。 我真的很喜欢，如果有一些方法，我可以用我的公式填写一个正方形，Excel将根据需要填写下面的正方形和相应的date。 任何人都知道这是可能的吗？ 或者不可能？ 非常感谢！

excel数组列双/三重/等。辅音一代

我将如何自动生成AA – ZZ等数组（如PHP），如AAA – ZZZ $column_arr2= range("aa", "zz"); // NOT Working $row_arr = range(0,1000); $column_arr = range("a", "z"); echo "Column2<pre>".print_r($column_arr2, true)."</pre><br />"; // prints a – z echo "Row<pre>".print_r($row_arr, true)."</pre><br />"; echo "Column<pre>".print_r($column_arr, true)."</pre><br />"; 想使数字和阿尔法数组dynamic，因为我用这个Excel文档。 我想要的是： $arr = ([0] => 'a', [1] => 'b', [2] => 'c', … [26] => 'aa', [27] => 'ab', […]

导出一个数组arraysExcell在PHP中。

我在每个子数组的开始处有一个数组的数组是列的标题，后面跟着我要填充列的整数。 它看起来像这样： Array ( [0] => Array ( [0] => How was the Food? [1] => 3 [2] => 4 ) [1] => Array ( [0] => How was the first party of the semester? [1] => 2 [2] => 4 [3] => 0 ) ) 有没有办法分解数组，并将其导出到Excel？

将文本分配给数组

我如何分配一组文本值到一个数组？ 没有我试过的工作！ Months = Array("Jan", "Feb", …, "Dec") 和其他我尝试不工作！

比较两个arrays与Excel VBA

至于这个问题，我需要能够将Variant数组A中的所有数据与Variant数组B中的所有数据进行比较。我知道我需要某种双循环（因此每个A值都会针对所有B值进行检查），但我无法弄清楚如何去做。 以下是我到目前为止： Sub Button_Click() Dim trgtRange As Variant Dim tempRange As Variant Set myRange = ThisWorkbook.Sheets(1).Range("L:L") For Each cell In myRange If IsEmpty(cell) Then ActiveCell.Offset(-1, 0).Select currentRow = ActiveCell.Row Set trgtRange = Range("L2:L" & currentRow) Exit For End If Next cell Set tempRange = Range("A1:A" & currentRow – 1) ' Insert a double loop here […]

比较VBA中的两个数组并添加行

因为我是相当新的VBA我需要帮助我的代码的一部分，这应该是比较两个数组按顺序递增，如果在任何一个数组中的值是丢失，那么它应该添加行到适当的表和用值为零的缺失值填充到它旁边的单元格。 这是我到目前为止： With ActiveSheet LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row End With For I = 3 To LastRow If Cells(I, 1) > Cells(I, 6) Then LastRow = LastRow + 1 With Range("A" & I & ":C" & I) .Select .Insert Shift:=xlDown End With Range("A" & I) = Cells(I, 6) Cells(I, 2).Value = 0 ElseIf Cells(I, 1).Value < […]