Tag: 行

是否有可能自动添加1行约。 50文件夹中的excel文件？: 我有一个文件夹完整的Excel文件（以.xlsx结尾）。大约有50个。是否有可能遍历文件夹中的每个Excel文件，并在第1行插入一个空行？我不希望手动这样做。另外，我想在单元格A1中为所有50个文件添加单词“NEW”。这可能与VBA？

如何在Excel中将单个行拆分为多个列: 在Excel中，我想将第1行中的数据拆分为四个单列。 A1：D1应保持在原位。 E1：H1应该成为A2：D2等等。我目前在A2中使用这个公式： INDEX($1:$1;(ROW()-1)*4+COLUMN()-1) …但我得到一个#REF! 错误。我如何解决这个问题？

在For循环中复制行并粘贴到新工作表: 我有问题根据条件复制/粘贴行。 Dim lastrow1 As Long Dim lastcolumn1 As Long Dim Distance As Long Distance = 14 Set sh = ThisWorkbook.Sheets("Sample Address Database") Set sh2 = ThisWorkbook.Sheets("Workspace") lastrow1 = sh.Cells(Rows.Count, "A").End(xlUp).row lastcolumn1 = sh.Cells(1, Columns.Count).End(xlToLeft).Column Dim L As Long For L = 2 To lastrow1 If _ sh.Cells(L, Distance).Value <= CDbl(cboRadius.Value) Then sh.Range("A" & L & […]

如果在列A中存在具有相同值的另一行，并且该行在c中具有值，则删除该行: 我正在尝试编写一个macros来执行以下操作：它取A列的值 – 每行的行数（从下到上）=初始行它会检查列A中是否有另一个具有相同值的行如果是，则需要第一场比赛它检查匹配的行是否有列C写入的内容如果是，则删除最初的行我有以下，但它不工作，现在似乎也有错误“无法获得工作表function类的匹配属性。 Option Explicit Sub Testing() Dim x As Long Dim y As Long Dim LastRow As Long Dim MatchedRow As Long Dim RowValue As String LastRow = Range("A999999").End(xlUp).Row For x = LastRow To 1 Step -1 RowValue = Range("A" & x).Value If Application.WorksheetFunction.CountIf(Range("A1:A" & x), Range("A" & […]

用excel中的公式查找连续的文本: 我有一个电子表格，我需要在一行中find重复的名称，并将其标记在单元格的起始行，以及一些名称后面跟着第三个单词，所以公式只需要看第一个单元格中有2个单词。在下面的例子中，每个项目是一行中的单元格：重复发现，吉姆表，菲利克斯笔记本电脑，汤米窗口，吉姆表（科学），唐尼脚第一个单元格突出了重复的“吉姆表”，即使第二次出现“（科学）”的结尾。我可以使用什么公式？我尝试了下面，但它似乎只适用于数字。 =IF(COUNTIF($D$7:$Z$7,MODE($D$7:$Z$7))>1,"List has duplicates","No duplicates") 我真的想要避免使用UDF，因为许多用户将在不同的计算机上使用它。

如何插入一行，如果两个数字之间的差异是>在Excel中超过0？: 我有一个简单的Excel表，我想在特定的行后面插入n行例如：如果B和C列的差值大于0，我想插入n行。而要插入的列数是这两个单元格之间的差异。但是（如果可能的话）想通过插入单元的数量来增加D列的数量，但是我不知道使用哪个公式。我已经在VBA中做了一个小macros，但是我没有任何VBA的经验，我只能做第一行，我不能复制行，只需插入必要的行数！我的代码： Sub insertCells() Dim x As Long c = Range("C1").Value Dim id As Long id = Range("A1").Value + 1 Dim y As Long b = Range("B1").Value Dim i As Long i = c – b Do Until i = 0 Rows(id).Insert Shift:=xlToRight i = i – 1 Loop End […]

所选系列的返回索引: 有没有一种简单的方法来获取使用VBA Excel图表中选定的行的索引？我有一个图表，用户select一个系列。那么macros应该做一些事情。我正在寻找像idx = Selection.getIndex 。我需要这个idx来调用其他函数，使用索引来select特定的系列（例如FullSeriesCollection(idx).DataLabels.labelPos=… ）

以编程方式计算Excel中行的总和: 从上面的截图中，我试图从单元格C和D中将多行添加到F列中。我自己手动做了一些，例如：单元格F2 =SUM(C2+D2) ，单元格F3 =SUM(C3+D3) 有没有办法复制这个总和forumla并增加它所在的单元格行号，或者我必须手动执行列F每个公式？谢谢！

突出显示Excel中的每个第一行元素: 我有一行元素（定义名称为“myhazards”）我正在转换为一列元素，例如： 1 2 3 4 5 6 7 8 这是我的公式将行转换为列： =INDEX(allhazards,1+INT((ROW($A1)-1)/COLUMNS(allhazards)),MOD(ROW($A1)-1+COLUMNS(allhazards),COLUMNS(allhazards))+1) 不过，我想修改我的公式，将第一行元素突出显示为黄色 1 <– highlight cell yellow 2 3 4 5 <– highlight cell yellow 6 7 8 有任何想法吗？干杯

显示基于单元格值的行 – Excel VBA: 我正在使用以下代码来隐藏基于单元格值的行： Sub HideN() Dim RowCnt As Long, uRng As Range BeginRow = 8 EndRow = 232 ChkCol = 6 For RowCnt = BeginRow To EndRow If Cells(RowCnt, ChkCol).Value = 0 Then If uRng Is Nothing Then Set uRng = Cells(RowCnt, ChkCol) Else Set uRng = Union(uRng, Cells(RowCnt, ChkCol)) End If End If Next RowCnt If […]