Tag: 数组
查找多个值并返回单个string
我已经find了如何查找多个值并将它们作为列表返回（一个单元格中的一个值）。 但我需要显示在一个单元格中find的列表（作为一个string与断线）; 优选在每个值之后用分号分隔。 例如： 来源列表（一个值 – 一个单元格）： A A B B B C 结果（显示在单个单元格中）： A; B; C; 谢谢！
循环访问string数组项错误
场景：我有一个鼠标指针代码，点击某个屏幕坐标，复制，然后在另一个坐标点击并粘贴。 我的数据被复制可以改变，有些列有问题的信息。 问题：某些列有“17-2”或“13.5”等数据。 因此，对于这些列，在复制粘贴过程完成之前，我将excel文件中的列更改为txt： ThisWorkbook.Sheets("Output").Columns("E").NumberFormat = "@" 这些有问题的列可以改变地方（例如，“E”或“J”），甚至根本不存在。 目标：我试图改变我的代码，所以我得到一个用户input的列号必须改为文本。 我到目前为止：假设我正在使用MSGBox获取用户input（以“2/4/5/9”的forms，作为string）。 我首先把它分成一个数组，而不是我试图循环这个数组。 对于数组中的每个数字，我使用一个ColumnLetter函数，它给了我需要的那个字母，然后我把这个字段更改为文本。 问题：现在（在检查很多post关于如何正确循环string数组，在这里在SO）我得到这个代码： Dim ColTXT As String Dim ColTXTArray() As String Dim i As Long On Error GoTo ErrorHandler ColTXT = Application.InputBox("Please enter ascending column numbers to be changed to text (separated by '/', no blanks)", "Please enter Column Numbers") ColTXTArray() = Split(ColTXT, "/") For […]
如果相邻列符合某些标准，是否有条件地添加一列的值？
我有两列A和B. A包含单词（'word1 word2'，'word3'，'word1 word4'等）的string组合，列B包含一个数字。 然后我有一个单独的工作表，C列，其中包含每个独特的词出现在原来的A列。 我想要做的就是将所有列C的值加起来，其中列C出现在A的匹配行中，并放到列D中。 我的问题是我在执行范围上的SUMIF时遇到问题。 我知道我可以使用ISNUMBER（SEARCH（））来判断列C是否包含在列A中，而且我知道我可以根据是否在A中searchC来获得SUMIF列B，但是我不能应用它以这样的方式，我得到一个公式，我可以适用于整个列D，因为在C中的单词不匹配的行与该单词出现在A的位置。此外，search（）似乎打破了，当我通过search一个数组，我想因为它停止了一个string，所以我得到types不匹配？ 我可以根据需要澄清，我明白这有点混乱。 提前谢谢你的帮助。 示例：这里是工作表1. A是string，B是Int A | B word1 word2 | 1 word2 word3 | 5 word4 word1 | 10 和工作表2。 C | D word1 | 11 (because row 1 and row 3 both contain word1) word2 | 6 (row 1 and row 2 contain word2) word3 | […]
如何将数组输出到Excel VBA中的表中？
我有一个名为foobar的表Range(Cells(2, 1), Cells(11, 2)) Range("foobar[#All]") Range(Cells(2, 1), Cells(11, 2)) （使用Range("foobar[#All]")来包含标题行）。 还有从第13行开始的其他表。因此，在第12行之间有一个空行。 表名是我的同事在其他几个macros中使用的。 现在，我想复制一个数组，例如Redim array1(1 To n, 1 To 2)到表foobar 。 正如你所看到的，n是一个variables，我必须确保从Cells(2, 1)开始粘贴数组后，它不会覆盖下面的表，并且表foobar下面还有一个空行来分隔它从其他表中。 而foobar的名字也应该保留。 如何自动调整/添加/减less行匹配我的数组array1而不是销毁表foobar和其他表下面的表？
（解决）VBAarrays大小重置一次打32767（Excel 2010）
我使用一维dynamic数组来保存它们总数为60K以上的值。 这似乎是一个简单的任务，但我注意到，一旦数组的大小达到32767，它又从0开始。 任何build议将不胜感激。 我的代码： Sub GetHours() Dim R As Long, i As Long, N As Long, var, vRaw, v R = LastUsedRow(Sheet1) With Sheet1 vRaw = .Range(.Cells(2, 1), .Cells(R, 22)).Value End With For i = 1 To R – 1 var = vRaw(i, 12) If IsNumeric(var) Then If IsArrayEmpty(v) Then ReDim v(0) v(0) = i […]
编写multidimensional array来优秀vba
我正在寻求写一个Excel电子表格的一维数组，而不使用任何循环。 本质上，我试图加快我的代码，以便我可以将价格系列转换为返回系列。 我已经将价格系列复制到一个variables，然后执行转换返回，但我似乎无法将整个数组写回到Excel。 我似乎只能用循环一个接一个地做。 这实质上是失败了多次试图避免从excel读取/写入的目的。 我的代码如下，任何帮助将不胜感激！ 理想情况下，我试图在没有实际循环的情况下完成最终的循环。 For j = 1 To num_sec len_ror = wks_acp.Range("A:A").Offset(0,j).Cells.SpecialCells(xlCellTypeConstants).Count – 2 last_row = max_row – len_ror + 1 ReDim prices(len_ror + 1) As Variant ReDim rors(len_ror – 1) As Variant prices = wks_acp.Range("$a$" & last_row – 1 & ":" & "$a$" & max_row).Offset(0, j).Value For i = 0 […]
如何从VBscript / VBA数组中删除重复的元素在Excel中的下拉框中使用
我发现很多文章靠近我的，但不是我所期待的。 我正在使用IBM个人通信模拟器收集患者历史数据。 患者病史可能有几页声明，所以稍后在程序中使用的服务代码需要收集并保存在一个数组中。 一旦重复被删除，其余的代码将被存储在一个下拉框中。 ' Copies entire current history screen MHIScreen = objUNET.autECLPS.GetText(3, 1, 1680) ' Location of the place of service code header POSLoc = InStr(MHIScreen, "PS SVC") ' Location of service code ServLoc = POSLoc + 3 ' Used for array index j = 1 Row = 4 Do Serv(j) = Mid(MHIScreen, ServLoc, […]
MATLAB：如何用相同的字段列表结构
我使用了一个叫做数据的428×1单元arrays data = {[1×1 struct] [1×1 struct] …. [1×1 struct]} 这些结构都具有相同的结构 data {2,1} >>struct with fields additional_model_information: 'H Series,S3150-S0-AW-04-02-C-F421,' ceiling_fan_size_diameters_in_inches: '60' airflow_efficiency_cfm_watt_low: '727' airflow_efficiency_cfm_watt_high: '392' 结构字段对于所有428个单元是相同的，并且字段值在每个结构中改变。 我怎么能创build一个表，把所有的结构放在一起，以便它显示每个字段的所有字段值？ 使用嵌套for循环吗？ 我最终想要将这些数据导出为excel。
如何在Excel中返回来自多个条件的多个匹配的列标题？
我正在为40多个不同的客户群定价。 通过input项目编号和价格，我想显示与该项目/价格相匹配的所有价目表的名称。 我已经设置了如下表所示的项目和定价列表。 有些项目在多个价目表中有相同的价格，有些价目表没有列出所有项目。 Item ListPrice Red Blue Green Grey Hosaka2 $200 $180 $188 $171 TrodesH $460 $410 $380 $400 $380 TrodesL $810 $680 $680 $720 Shuri $80 $72 $72 $70 我想inputTrodesH和$ 380进入单元格，并有公式返回蓝色和灰色。 或inputHosaka2和$ 200，并有公式返回ListPrice。 我在过去使用这个索引数组公式返回多个匹配到一个单一的条目。 例如，列出地址与我input的邮政编码相匹配的所有帐号。 这非常方便。 但在这里，我正在寻找物品和价格的组合。 任何想法，我可以前进？ 编辑：为了在Excel文件中更好的可读性，我将上述数据放在名为“Matrix”的工作表中，并在名为“Check”的工作表中查找公式。
将Excel列标题设置为PHP中数组的快捷方式
我正在使用一个数组来selectExcel中的列。 现在我需要A到CZ ，但是将来可能需要扩展到更大的一个。 我希望有人比我现在做的更快或更好的方式。 这是我现在正在做的事情： $ColumnArray2 = array('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'); $ColumnArray = array(); for($x = 0 ; $x <= 25 ; $x++) { $ColumnArray[] = $ColumnArray2[$x]; } for($x = 0 ; $x <= 4 ; $x++) { for($y = 0 ; $y <= 25 ; $y++) { $ColumnArray[] = $ColumnArray2[$x].$ColumnArray2[$y]; } } 这给了我一个从A到EZ有155个值的数组。 有没有更好的方法来完成这个？
