Tag: 数组

如何引用一个variables范围: 我想引用我的excel表格中可变范围内的一系列数据。意味着这个月的数据有80行，但下个月它可能是100行。所以我只想要一个方法来引用一个可变范围的范围。所以我可以在下面的公式中使用该方法： =SUMPRODUCT(Allocation_Updt!$J$2:$J$83*((RIGHT(Allocation_Updt!$F$2:$F$83,6)+0)=$E62))/100 这里83是数据表的最后一行。但下次可以更改。设置为10000（我的数据几乎是最大限度）会给我错误。

Excel：总和除了前三名之外的其他值: 使用Excel我想获得的值的总和的前三个值以外的范围内。范围有＃N / A值我想忽略。水平范围。例如，前4个值都是8的情况下，我只希望8个中的3个被排除在总和之外。我设法使用以下函数将范围内的前三个值相加： =SUM(LARGE(IF(NOT(ISNA(AW2:BH2)),AW2:BH2),{1,2,3})) 我假设我可以对上面做一些小的调整，但是我的大脑不工作。

VBA – 从列中获取唯一值，而不使用拆分string: 我正在使用下面的代码将一列string中的所有唯一值保存到一个数组中，然后通过计算数组的长度来获取唯一值的数量。 Dim tmp As String Dim prNumbers() As String Dim arrLen As Integer Dim lastRow As Integer Dim txt As String lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row Dim rngPR As Range Set rngPR = Range("B2:B" & lastRow) If Not rngPR Is Nothing Then For Each cell In rngPR If (cell <> "") And (InStr(tmp, cell) = 0) […]

通过数组高效循环: 我有一列我想用首字母replace的全名。我目前正在这样做： Dim n As Long Dim varray As Variant Dim FullNameRange As Range Dim FullName As String varray = Range(NDLstaffCol & FirstLineItemRow & ":" & staffCol & LastRow + 1) For n = FirstLineItemRow To UBound(varray, 1) Set FullNameRange = ActiveSheet.Range(staffCol & n) FullName = FullNameRange.Value FullNameRange = Left(FullName, 1) & Mid$(FullName, InStr(FullName, " […]

在VBA中检查数组: 我有一个列表 – 我刚刚发现这个语法，将允许从我的列表中多选： Dim Oldvalue As String Dim Newvalue As String On Error GoTo Exitsub If Target.Address = "$B$1" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue = Target.Value If Oldvalue = "" Then Target.Value = Newvalue Else […]

Laravel Excel：CSV到数组: 所以我正在做一个表单，我想要给用户上传一个CSV的选项，这个表单可以被自动填充。所以我想我会构build一个读取CSV的函数，然后把每一行都作为一个对象传递给一个数组，然后我可以传回到我的Laravel Blade模板。我唯一的问题是，我从函数返回的数组总是空的。有任何想法吗？ private function import($path) { $applicants = []; Excel::load($path, function(LaravelExcelReader $excel) use ($applicants){ $excel->each(function(Collection $line) use ($applicants){ $name = new \stdClass; $name->first = $line->get('first'); $name->middle = $line->get('middle'); $name->last = $line->get('last'); $name->birthdate = $line->get('birthdate'); $name->ssn = $line->get('ssn'); $name->email = $line->get('email'); $name->mobile_phone = $line->get('mobile_phone'); $name->home_phone = $line->get('home_phone'); $name->street = $line->get('street'); $name->city = $line->get('city'); […]

Excel公式来求和给定列号的列表中的所有单元格？: 我有这样的数据 Bin 0 Bin 1 Bin 2 Bin 3 Bin 4 Bin 5 Bin 6 Bin 7 0.6967 0.6967 0.0503 0.0497 0.0971 0.0526 0.0009 0.0013 我有一个箱子的清单总结，例如，我想总结箱2,5和7.我怎么会写公式来计算这些箱数的所有单元格？我尝试了像{= SUM（OFFSET（A2，{2,5,7}））}}但我不认为我正确使用数组公式，因为它没有工作。

数组查找不resize: 我有两个工作表Sheet3和Sheet4 。 Sheet3仅在列A中具有值， Sheet4在列A和B中具有值下面的代码为Sheet3创build一个一维数组，然后为Sheet4创build一个一维数组，然后比较两个数组并在Sheet3列B中输出正确的值。因为代码有点慢，所以我决定调整我的数组，现在我的代码不再工作。任何build议如何我可以resize的数组没有代码打破？谢谢你的帮助！ Sub ArrayCompare() Dim Array1() As Variant, Array2() As Variant ReDim Array1(1 To 1000) For i = LBound(Array1) To UBound(Array1) Array1(i) = Worksheets("Sheet3").Cells(i, 1).Value Next i ReDim Preserve Array1(1 To i) ReDim Array2(1 To 1000, 1 To 1000) For i = LBound(Array2) To UBound(Array2) For j = LBound(Array2, […]

使用数组的vba excel vlookup: 我有下面的代码，这是有效的，但有点慢，我想要做同样的，但使用数组 Sub AddValues() Dim Srng As Range Dim search_value As Variant PG = "Data" Ln = 2 Set Srng = Worksheets("Coniguration").Range("_Configuration") LastRow = Worksheets("Data").Range("A1").CurrentRegion.Rows.Count For Ln = 2 To LastRow search_value = Val(ActiveWorkbook.Sheets(PG).Cells(Ln, "A").Value) ActiveWorkbook.Sheets("Data").Cells(Ln, "CA").Value = Application.VLookup(search_value, Srng, 3, False) ActiveWorkbook.Sheets("Data").Cells(Ln, "CB").Value = Application.VLookup(search_value, Srng, 4, False) ActiveWorkbook.Sheets("Data").Cells(Ln, "CC").Value = Application.VLookup(search_value, Srng, 5, False) […]