Tag: 数组

Excel-VBA中的数组中的随机元素

我冲进了互联网,仍然没有find任何解决这个问题的方法: 我有一个这样的数组; Dim PayRate As Variant PayRate = Array(10, 20, 30) Cells(i, "E").value = PayRate(Int((2 – 1 + 1) * Rnd + 1)) 但这只会给我20和30arrays(元素1和2),我也想元素0 = 10在混合? 我该怎么做呢?

select与数组中的每个项目匹配的行

在Excel文件1中,我有非常大的表,在同一列中的每一行中的数字(比如说F栏)。 在Excel文件2中,我也有一列中的数字(比方说A列)。 问:如何selectfile2中包含数字的所有行。 我发现如何selectfile2中包含file1中的一个string的行…但string数组对我来说有点棘手,file1中的数组非常大。 Sub SelectManyRows() Dim CatchPhrase As String Dim WholeRange As String Dim AnyCell As Object Dim RowsToSelect As String CatchPhrase = "10044" // <- here should be array from file1 col A 'first undo any current highlighting Selection.SpecialCells(xlCellTypeLastCell).Select WholeRange = "A1:" & ActiveCell.Address Range(WholeRange).Select On Error Resume Next ' ignore errors For […]

函数在数组中的function

我的代码中没有错。 整个上午我search了这个错误! 所以我希望你能帮助我。 首先,这是问题代码(variables的名称不是它们的真名): Sheets(sheet).Range(nameOfTheRange).FormulaR1C1 = _ functionReturningString(functionReturningStrArr( _ Range(nameOfAnotherRange).Value, AnInputWorkSheet, "colNameInInputSheet")) 所以我的描述是: 所有的function都很好地独立工作,但总是有这个错误(语言:德语): Fehler beim Kompilieren: Unverträglichertypes:Datenfeld或更多types的其他types functionReturningString是一个具有以下参数的函数(strArr()作为Variant) – >它返回一个string像一个bulletlist。 functionReturningStrArr(nameWhichISearchInSheet as String, dataSheet as Worksheet, dataColumn, as String) – >它返回一个Variant()的项目符号列表 我不确定第二种方法是否真的起作用,所以这是它的代码。 Function functionReturningStrArr(ByVal nameWhichISearchInSheet As String, ByVal datasheet As Worksheet, ByVal datacolumn As String) As String() Dim returnArray() As String Dim rowindex As […]

将excel中的信息提取到python 2d数组中

我有一个Excel表格,date,时间和温度如下所示: 使用Python,我想提取这个信息到Python数组。 数组将获得位置0的date,然后将临时数据存储在以下位置,如下所示: temparray[0] = [20130102,34.75,34.66,34.6,34.6,….,34.86] temparray[1] = [20130103,34.65,34.65,34.73,34.81,….,34.64] 这是我的尝试,但它很糟糕: from xlrd import * print open_workbook('temp.xlsx') wb = open_workbook('temp.xlsx') for s in wb.sheets(): for row in range(s.nrows): values = [] for col in range(s.ncols): values.append(s.cell(row,col).value) print(values[0]) print("%.2f" % values[1]) print''' 我用xlrd,但是我可以使用任何东西。 感谢您的帮助。

VBA范围数组 – 什么?

我在这里感到困惑,这段代码抛出一个下标超出范围错误 – 我看不出为什么 Public Sub Tester() Dim Arr As Variant Dim n As Long Dim size As Integer Dim width As Integer Arr = Sheets("Sheet1").Range("L13:L20") width = LBound(Arr) size = UBound(Arr) Debug.Print size For n = 1 To 8 Debug.Print Arr(n) Next End Sub 任何帮助将是伟大的 – 我希望我可以俯视简单的东西,但所有的下标超出范围的帮助网上迄今没有太多的使用… … –

加权中位数如果在Excel中

我有一个Excel数据选项卡,其中包含以下列:A:县名B:酒店名称C:酒店D:年份酒店中的房间数量已构build 在我的分析选项卡中,我有以下列:A:县名B:酒店房间的中间年龄 我试图找出每个县的“酒店房间”的平均年龄。 按照Excel的说法,我试图做一个加权MEDIAN IF – 如果县名匹配的房间数量加权中位数 – 所以如果有三个酒店在县,一个build于1900年瓦特100房间,一个内置1975年有50间客房,2000年有200间客房,返回的价值应该是2000年。任何帮助非常感谢!

数组公式查找第二大数

我目前使用以下公式来查找数据集(Sheet1K7:K106)中的最大数字,条件是某些相应的值(Sheet2!C7:C106)小于某个数字(Sheet3!C18): =MAX(Sheet1!K7:K106*(Sheet2!C7:C106<Sheet3!C18)) 现在我想find同样条件下的第二大数字。 我认为这需要大函数,尽pipe我似乎无法应用上述条件。

如何循环使用数组的单元格的分散select

我有一个分散的单元格的电子表格,我想在一个厚边框轮廓。 我把单元格放在一个数组中。 有些是个别的细胞,有些是连续的分组。 由于添加这些边框的代码很长,我想循环遍历将有边框的单元格。 我试图select单元格的行正在使用我编写的语法,显然不起作用。 有没有什么语法可以工作,还是我以错误的方式处理问题? arrCellBorders = Array("A2", "A3", "A6", "B5", "G1", "E7:E10", "E19:E22", "E33:E36", "I7:I10", "I19:I22", "I33:I36", "K7:K10", "K19:K21", "K33", "O7:O10", "O19:O21", "O33", "Q7", "Q9:Q10", "U7", "U9:U10") For iCounter = 0 To 20 Range("arrCellBorders(iCounter)").Select With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlMedium End With With Selection.Borders(xlEdgeTop) .LineStyle […]

两个数组相乘时出现Excel错误

我想乘两个数组,我得到一个#Value错误。 只是简要说明表中的内容: 列E被用作基于最后一个特定string的存在的布尔数组 列D用于查找存在相同ID集合的列A. 最后,列B包含基于从列E导出的布尔向量添加的量 一步一步(使用F9)所有片断评估正确,但整个公式没有。 ABCDE ID Amounts ID Code 9 100 1 PT91 8 2000 2 PT92 7 3000 3 PT93 66 4000 4 PT94 5 5000 5 PT95 4 5000 66 PT96 3 5000 7 PT97 2 5000 8 PT93 1 5000 9 PT99 给出错误的公式是: {= MMULT(移调(IF(RIGHT(E3:E11,2)= “93”,1,0)),偏移(B2,MATCH(D3:D11,A3:A11,0),0))} 预期的结果是7000 非常感谢 西蒙娜

CONCATENATE数组

我想连接一些专栏,他们之间必须有这个。 “;问题是不同的行有不同的列数。 举个例子: ABC 1 Image1.jpg Image2.jpg Image3.jpg 2 Image1.jpg Image2.jpg 3 Image1.jpg 如果我连接三列第三将看起来像这样Image1.jpg;\;\ 只有在不是空的时候,才有一个选项可以使列一致?