Tag: 数组

如何把这个数组放入CSV或Excel？: 我想不出有办法做到这一点，我真的很难与数组，所以我希望有人能帮助我。我有数组$卡住，只是包含名称，就像这样 $stuck = array('Daniel','Alex','alfredo','dina'); 我正在使用按字母顺序排列名称，就像这样 sort($stuck); 现在的事情是我想把这个数组放入一个CSV或Excel文件，所以名字的第一个字母将是标题，所有与这个字母的名字将在这个标题下。这是我想要完成的一个例子

Excel VBA：用数组replace第一行: 我有100个单元格的第一行，我创build了一个string数组，表示新的行内容。我想用VBA中的数组内容replace所有第一行的内容，我该怎么做？

Excel VBA中的数组的Sumifs: 我想做一个数组的sumif，但我不知道如何引用数组中的完整列。例如，我有以下数据在Excel中（在列A和B）和代码工作正常， RR TT 1 J 2 K 3 J 4 K 5 J 5 K 6 J 7 K 8 J 9 K Sub test() Dim s As Range Dim s2 As Range Set s = Range("A2:A11") Set s2 = Range("B2:B11") e = WorksheetFunction.SumIfs(s, s2, "J") MsgBox e End Sub 这总结了RR列等于“J”，答案是23的RR列。但是在代码中，我将每列分配给VBA中的一个单独的范围。我想分配两列到一个数组，并从数组中做sumifs。代码的第一部分将如下所示， Dim […]

两个数组常量之间的Excel计数 – 只返回前三个实例: 我正试图在制造class次报告中只计算完成的部件。例如：在列A中有6个组件（每个都有三个部分），用列阵常量{1,2,3,4,5,6}表示（换句话说，这个列每个组件重复三次 – 1,1,1， 2,2,2,3,3,3,4,4,4,5,5,5,6,6,6）我在列B中每个组件有三个部分，用数组常量{“a”，“b”，“c”}表示。（换句话说，组件1在移位打印报告中在一行上具有“a”部分，在下一行上具有“b”部分并且在第三行上具有“c”部分。我在C列中也有一个状态/标准评论，用“Complete” 我的公式试图只计算完成的组件（每个都有三个部分）：{= sum（countifs（A：A，{1,2,3,4,5,6}，B：B，{“a”， “b”， “b”}，C：C， “完成”））} 但是，只有第一个三个组件，即不4,5,6。请帮助，因为我的完整应用程序将有多达100个组件每个class次，每个都有三个部分，我必须报告准备发送只有当列C是“完整”。我在这个时候手工做这个大麻烦的工作。我尝试了一个替代公式，但只有当A：A有一个值时才有效：{= sum（if（（A：A = {1,2,3,4,5,6}）*（B：B = {“一”， “b”， “C”}），1,0））} 我完全被这一个困惑 – 真是脑筋扭曲！我试图寻找资源上不匹配的数组常量，我认为在这种情况下相关，但不知道如何进行（反正）。请有人给我看看灯光！谢谢，Stu

VBA Excel从具有循环的数组中返回值: 我在vba函数中有一个小循环，每个月 – 即参数 – 从列表中获得相应的合同，除了十二月份以外的每个月都有效。 Contractlist是一个垂直数组（3,5,7,9,12）。这是代码： k = 1 Do Until Month(Parameter) < contractlist(k, 1) k = k + 1 Loop nextcontract = MonthName(contractlist(k, 1)) 问题如下：当月份是十二月，月份（十二月份）从不小于contractlist（k，1），因为12是该数组中最小的值。在这种情况下，我想跳到数组的第一个值，即“3”。换句话说，在最后一行nextcontract应该是MonthName（contractlist（1，1））。有人可以给我一个提示如何做到这一点？谢谢，你的帮助真的很感激！

Excel VBA：在一行中添加一行到变体数组: 我想添加一行到一个变种数组： Dim arrMod As Variant arrMod(numberOfRow) = Array(myValue1, myValue2, myvalue3) 这段代码的执行导致一个exception：错误13：types不匹配我怎样才能做到这一点，而不需要迭代每一列？谢谢，问候

从一个范围创build一个数组，同时忽略空白: 我正在努力在这个基本的东西… 使用Excel VBA：需要从一个范围（1维）创build一个数组，但是该过程需要删除任何空白。我的代码不工作… Sub ReadFilePaths() Dim b As Long 'counter Dim rPATHS As Range 'selected range containing file paths Dim aTEMP As Variant 'initial array to be cleaned of blanks Dim aFILEPATHS As Variant 'final array containing File Paths of those to be ReFlagged Sheets("FILES").Select 'select ws where they are listed Range("B3:B33").Select 'select range […]

从内存数组读取信息到Excel表单公式中: 我想从我的VBA内存中存储的数组中直接使用数据到我的工作表中的公式中。作为一个例子，我想避免使用Application.vlookup（）打印到每个单元格，因为这是慢的。而是做一些如下所示 Sub MySub() Dim MyArrayStoredInVBaMemory() As Variant MyArrayStoredInVBaMemory = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) Cells(1, 1).Value = 1 Cells(1, 2).FormulaR1C1 = "=vlookup(RC1,MyArrayStoredInVBaMemory,1,0)" Cells(1, 2).Copy Cells(1, 2).PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub 你的帮助表示赞赏。

将行作为variables复制一个数组: 我是Excel VBA编程新手，我正在使用2010版本。我想复制数组中列出的单元格的内容，所以我可以将它们粘贴到另一个工作表上。列将保持不变，但我希望该行在哪里活动单元格。代码链接到一个button。当我用一个单元格整数昏暗的数组，这就像一个魅力。我希望有一种方法可以使数组dynamic的行号基于活动单元格。 Dim x As Integer Dim myarray As Variant x = ActiveCell.Row myarray = Array("Ax", "Fx", "Ix", "Jx", "Kx", "Rx") With ThisWorkbook.Worksheets("HANDOVER") Cells(x, myarrray).Select Selection.Copy End With

检查一个参数是否是一个特定的数组: 我有两个数组，我想作为parameter passing给另一个Sub： Public arr1 As Variant Public arr2 As Variant Sub Main() arr1 = listSheet.Range("E2:G4").Value arr2 = listSheet.Range("H2:J60").Value call mySub(arr1) call mySub(arr2) End sub() 在“其他”子，我需要检查哪个数组传递，但没有任何下面的选项工作： sub mySub(ByRef myArr As Variant) if myArr=arr1 Then 'do actions end if 'and I also tried: if myArr is arr1 then 'do actions end if end sub 我怎么可以检查这个使用IF语句，或者这是可以以任何其他方式？