Tag: count

Excel计算列A中的单元格小于列B中的相应单元格的范围内的次数

我有一个范围A2：B28。 在A列中，我有一堆数字。 在B列中，我有一堆其他的数字。 我想知道它发生了多less次，A列中的一个单元格小于同一行中的B单元格（即A2

Excel：用一个“;”出现在包含“;”和一个范围内的“单词”的单元格中的次数

我想select包含“;”的区域中的单元格 和“SUN”或“SUNNY”这两个单词中的任一个，然后我想用一个数字来划分一个数字“;” 出现在那些细胞中，例如。 如果有4个单元格包含“;” 和“SUN”或“SUNNY”，并且这些单元中的每一个都包含“;” 2倍，那么它应该除以8。这是可能的在Excel中？ 也许使用两个或多个分离的公式？ 或细胞？ 这是我迄今为止所做的： COUNTIFS(DB3:DB50,DC26,DB3:DB50,$D$1) 计算是否出现“SUN”或“SUNNY” =(LEN(I3)-LEN(SUBSTITUTE(I3,";","")) 统计“次数”;“ 出现，但是，通过使用这个公式我必须在一个特定的单元格“I3”中search，我会search包含“;” 以及“SUN”或“SUNNY”两个字中的任一个 我需要上面这个公式来做同样的事情，但是在一个单元格范围内（列A的所有行）不仅在一个特定的单元格内（A1或A2等），这可能吗？ 我真的需要避免在B列的每一行重复这个公式，因为每一列都会寻找不同的单词（例如SUN SUNNY，CLOUD，CLOUDY，RAIN，RAINY）。 例如： 那么我只是总结C列，有没有办法实现这一点？

使用Excel VBA计算单元格，这是vlookup语句的结果

我在一张工作表上有一个电子表格，列C中的值是使用vlookup语句的结果从我在列A中input的值生成的。 我需要能够计算列C中的单元格的数量，最多51行（从第1行到第51行），其中有一个值，不包括错误，我已经input所有我的值在列A 。 哦 – 顺便说一句，每次我记数时，都会有不同数量的行。 我试过使用： ccc = Range("C:C").Cells.SpecialCells(xlCellTypeConstants).Count 但是这只是计算我的标题行的第一行。 对不起，如果已经有一个答案，但我一直在寻找一段时间，找不到任何东西。 谢谢。

iLastRow无法正常工作

我在VBA中遇到iLastRow的问题。 我使用下面的标签来定义列中数据的最后一行： iLastRow = Cells(Rows.Count, "H").End(xlUp).Row 不过，我总是会得到最后一行数据。 所以如果列A中数据的最后一行是第12行，列H中最后一行是10，那么结果仍然是12。 为了我的目的，我需要代码给我10作为结果。 任何帮助，高度赞赏，谢谢！

VBA统计列并复制它们

下面的代码隐藏了一定数量的行（取决于我们所处的星期数），并只显示了与当前星期编号对应的单元格以及与未来星期编号对应的单元格。 Dim test As String test = Format(Now, "yyyy", vbMonday) & KW(Now) For k = 3 To lastColumn ThisWorkbook.Worksheets(PlanningTableNameUG).Columns(k).ColumnWidth = cWidth If ThisWorkbook.Worksheets(PlanningTableNameUG).Cells(1, k).Value = test Then today = True On Error Resume Next ThisWorkbook.Worksheets(PlanningTableNameUG).Columns(k – 1).Ungroup On Error GoTo 0 ThisWorkbook.Worksheets(PlanningTableNameUG).Columns(k – 1).Group End If If Not today Then On Error Resume Next ThisWorkbook.Worksheets(PlanningTableNameUG).Columns(k).Ungroup […]

VBA Excel ADODB计数字段

我相当新的整个ADODB的东西。 我写了一个代码，试图计算正在使用这个特定数据库的列。 但不知何故，我得到以下错误： 运行时错误“-2147217900（80040e14）”：语法错误 我已经尝试了几种方法来阅读这些列，但是我无法完成这个工作。 有人可以给我一个线索如何解决这个问题吗？ 提前致谢 ：） Public Function GetParameterDbfTotalColumn() As Long Dim sConnectionString As String Dim mdbConn As ADODB.Connection Dim mrst As ADODB.Recordset Dim pPath As String Dim sTable As String GetParameterDbfTotalColumn = -1 pPath = "C:\ProgramData\Citect\CitectSCADA 7.20\User\Huisman V4\parameters.dbf" Set mdbConn = New ADODB.Connection sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pPath & ";Extended Properties=""DBASE […]

计算一对值出现在多less行中

我的数据框看起来像这样： Index V1 v2 v3 v4 v5 v6 1 abcdef 2 bcde 3 abcfg 4 acfdg 5 bcdghi . . . . . . . . . . . . . . 我需要遍历数据框中的每一行，并挑选出现在一起的对，并对它们进行计数。 例如a和b出现在行索引1和3中，所以count = 2。 dataframe有6列，不包括索引和554行。 每行中有6个variables可能有11个。 第一步是做一对和一对。 然后做所有的组合。 例如。 a+c ， a+d ， a+e… b+c ， b+d… 我已经使用了plyr包中的table(apply(df,1,function(x) paste(sort(x), collapse='-')))和count(df) ，但是输出的频率是a+b ， a+b+c…. […]

如何引用多个相邻的单元格

我有一个工作表，其中有几个单元格与特定的条目 – 让我们说“A”。 这些不在同一行/列中。 在每个单元格是一个date之后。 我需要计算包含“A”的单元格的数量，这个单元格的右边还有一个特定的date。 我试过Countifs和间接的组合，没有成功。 我怎样才能做到这一点？

select整个最后一行

我试图让我的代码find工作表中的最后一行，并复制整个行，并粘贴下面。 目前我有： Cells(Application.Rows.Count, 1).End(xlUp).Select Selection.Copy Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0).Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False find行中的最后一个单元格非常棒，但是当它复制/粘贴时，它只抓取第一个单元格。 所以，我想知道的是，如果您可以使用此代码来查找最后一行，然后select整个行，然后复制/粘贴下面。 请记住，我不能只input Rows("3:3").Select Selection.Copy Rows("4:4").Select Selection.Insert Shift:=xlDown 因为该行将是可变的。 谢谢！ Dim lastRow As Long lastRow = Cells(Application.Rows.Count, 1).End(xlUp).Row Rows(lastRow).Select Selection.Copy Rows(lastRow).Offset(1, 0).Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False 上面的代码将find最后一行，select它，将其复制并粘贴到下面。 但是，在某些情况下，我需要复制最后一行并将其粘贴到它下面的几行，所以： Rows("3:3").Select Selection.Copy Rows("4:16").Select Selection.Insert Shift:=xlDown 事情到这一点，但是我不能粘贴选定的行在几行，因为 Rows(lastRow:4).Select 吓坏了。 有没有办法将“16”添加到最后一行，以便复制该行并将其粘贴到接下来的14行等中？

打开perl中的Excel文件并打印行数

我正在使用Win32 :: OLE模块打开Excel文件并获得行数。 问题是，当我硬代码的Excel文件path工作正常，但是当我dynamic传递path，它会抛出一个错误，说：“不能调用方法工作簿上的参考”。 请find下面的示例代码。 use OLE; use Win32::OLE::Const 'Microsoft Excel'; my $xapp= Win32::OLE->GetActiveObject('Excel.Application') or do { Win32::OLE->new('Excel.Application', 'Quit')}; $xapp->{'Visible'} = 0; my $file='excel.xlsx'; my $fileName="c:/users/mujeeb/desktop/".$file; print $fileName; my $wkb = $xapp->Workbooks->Open($fileName); //here i am getting error coz i am passing dynamic fileName; my $wks = $wkb->Worksheets('Sheet1'); my $Tot_Rows=$wks->UsedRange->Rows->{'Count'}; print $Tot_Rows."\n"; $xapp->close;