Tag: 数组

基于sumif的Excel函数数组公式求最小值: 我有一些数据，我想根据一些标准find达到总数所需的最less天数。基本上数据是这样的： Date Season Recieval 1/01/2006 2006 500 2/01/2006 2006 100 3/01/2006 2006 150 … 10/12/2009 2009 300 等等我想要做的是find一个公式，发现达到一个赛季总收入所需的最less天数。下面的公式是我迄今为止所尝试过的，没有用。 =MIN(COUNT(IF(SUMIFS(C:C,B:B,"2006")>2000,DATA!A:A))) 它从什么地方开始并不重要，但它必须以最less的天数达到2000年。产出应该是一个数字，例如39（连续39天，总计2000年的收入）。基本上，我想要生成的是连续几天所需要达到2000年的总数，而不pipe起点如何。干杯!

具有引用dynamic单元格的数组公式的COUNTIF: 我试图使用一个dynamic数组的COUNTIF作为标准。我在单元格D1，E1和F1中更改了名称，因此，当我更新这些单元格中的值时，COUNTIF会根据用作条件的名称返回不同的和。 =COUNTIF(Col!A:A, "Test", Col!B:B, {D1, E1, F1}) 我正在使用一个数组，因为有时D1，E1或F1中的值可能是空的，所以我需要COUNTIF来计算正在切入和切出数组的值B：B。示例数据的答案如下： ColA ColB Test Rob Foo Jim Test Ted Bar Rob Test Rob Test Jim Foo Ted Test Jim Test Ted =COUNTIF(Col!A:A, "Test", Col!B:B, {"Rob", "Jim", "Ted"}) Answer: 6 =COUNTIF(Col!A:A, "Test", Col!B:B, {"", "", "Ted"}) Answer: 2 =COUNTIF(Col!A:A, "Test", Col!B:B, {"", "Jim", "Ted"}) Answer: 4 我看了这里，但我不写这个VBA代码 […]

VBA – 下标超出范围错误: 我正在尝试编写一个macros来执行以下操作：提示用户打开他们的文件，然后添加新的“不匹配”表到文件 find“Cust Bill To ID”和“SAP CMF＃”的列名，并将这两列下面的数据存储到两个不同的数组[BTID（）和CMF（）]中。如果BTID（i）不等于CMF（i），则复制整行并将其粘贴到“不匹配”页面。但是具有订阅超出范围错误的数组以及不匹配表仅具有从原始表单复制的列名（数据缺失）。结果：码： Sub Mismatch() Dim sht As Worksheet Dim authSht As Worksheet ' Renamed this variable Dim misSht As Worksheet ' Added a worksheet variable Dim i As Integer Dim k As Integer Dim last As Integer Dim BTID() As String Dim CMF() As String Dim […]

如何从variables资源pipe理器（Spyder python 3.5）复制variables到剪贴板: 基本上我想复制multidimensional array到EXCEL表。如果这是不可能的，至less我应该能够从variables资源pipe理器在Spyder中导出LIST。我试过了 ` import xlsxwriter workbook = xlsxwriter.Workbook('arrays.xlsx') worksheet = workbook.add_worksheet() array = [['a1', 'a2', 'a3'], ['a4', 'a5', 'a6'], ['a7', 'a8', 'a9'], ['a10', 'a11', 'a12', 'a13', 'a14']] row = 0 for col, data in enumerate(data): worksheet.write_column(row, col, data) workbook.close() `但是，我不能复制存储为数据的string数据。

每次执行一个函数时运行计数器（VBA）: 我正在为我的数组索引而挣扎。我希望数组的上限是Function RandomizeDice执行的时间量。任何帮助是极大的赞赏。 Function RandomizeDice() RandomizeDice = Application.WorksheetFunction.RandBetween(1, 6) End Function Sub RollDice() Dim DiceOne() As Variant Dim DiceTwo() As Variant Dim SumDice() As Variant Dim i As Integer ReDim DiceOne(i) As Variant ReDim DiceTwo(i) As Variant ReDim SumDice(i) As Variant Call arraySet(DiceOne(), DiceTwo(), SumDice()) Debug.Print SumDice(i) 'Debug.Print SumDice(0) ' Debug.Print ("Dice: " & […]

Python将excel数组分解成字符: 当我把代码放入excel中时，每个字符都被隔开。这使得星期二在excel中看起来像T，u，e，s，d，a，y。目标是使excel中的每个单元格都有自己的单词而不是字符。有很多循环，我很难find这个持续的问题的答案。有任何想法吗？ import requests from pprint import pprint from xml.dom.minidom import parseString from openpyxl import Workbook NMNorth2=[("Farmington"),("Gallup"),("Grants"),("Las_Vegas"),("Raton"),("Santa_Fe"), ("Taos"),("Tijeras"),("Tucumcari")] NMNorth=[("NM", "Farmington"),("NM", "Gallup"),("NM", "Grants"),("NM", "Las_Vegas"),("NM", "Raton"),("NM", "Santa_Fe"), ("NM", "Taos"),("NM", "Tijeras"),("NM", "Tucumcari")] wb = Workbook() dest_filename = 'weather.xlsx' ws1 = wb.active ws1.title = "Weather" for state, city in NMNorth: r = requests.get("http://api.wunderground.com/api/id/forecast/q/"+state+"/"+city+".json") data = r.json() […]

VBA用不同的范围填充2D数组: 我想填充一个未连接的几个命名范围的二维数组。包含一列和一个不变的行数码： Range("Range1").Select LastRow = Selection.Rows.count Dim data() as variant Redim data(1 to 4,1 to LastRow) data(1)=Range("Range1").value data(2)=Range("Range2").value data(3)=Range("Range3").value data(4)=Range("Range4").value 它给出了一个主题超出范围的错误，但我不知道为什么？

将二维范围（i，j）的存储值重新计算N次到二维范围（N，i * j）: 我有一个二维范围（我，j）是这样的： 1 2 3 4 5 6 7 8 9 0 我想复制并粘贴到另一个表如下： 1 6 2 7 3 8 4 9 5 0 我需要多次重新计算2-dim范围，并将结果存储在另一个表单中，其中每行存储一个迭代。现在我使用两个for循环将所有计算存储在数组（N，i * j）中，然后将所有迭代粘贴到另一个表中。有没有更快的方法来做到这一点？当前代码： Dim a(1 To 100, 1 To 10) As Double For iter = 1 To 100 Calculate For i = 1 To 2 For j = 1 To […]

R1C1数组公式添加function: 我不知道下面的公式有什么问题。当我把INDEX函数一旦工作，但失败时，我总结与另一个INDEX。能否请你帮忙。 .Cells(i, 13).FormulaR1C1 = "=INDEX('LISTA'!R20C2:R2000C2000, MATCH( ""Work1"",'LISTA'!R20C1:R2000C1,0),MATCH(R[]C2&R[]C3,'LISTA'!R17C2:R17C2000&'LISTA'!R13C2:R13C2000,0))" + "INDEX('LISTA'!R20C2:R2000C2000, MATCH( ""Work2"",'LISTA'!R20C1:R2000C1,0),MATCH(R[]C2&R[]C3,'LISTA'!R17C2:R17C2000&'LISTA'!R13C2:R13C2000,0))"" .Cells(i, 13).FormulaArray = .Cells(i, 13).Formula

具有并列值的VBA数组: 有没有办法在VBA中定义和写入数组，使得数值对显示为两行？ fndList = Array _ ( _ "PS4", "PlayStation 4" _ "WIN", "Microsoft Windows", _ "SNES", "Super Nintendo Entertainment System" _ ) 像上面的东西？使用两个单独的数组也很好，谢谢。