Tag: 行

我如何隐藏Excel的行，如果SUM的内容=零和跳过空白？: 我有两个代码，下面是一个隐藏和另一个取消隐藏行的基础上，其中包含的值等于零。但是，这段代码也隐藏了我不想要的空行，因为它们是段之间的间隔符。任何build议都将被赞赏，如果有build议来改进现有的代码，我也会很感激。 Sub HideRows() Dim R As Long Dim Rng As Range If Selection.Rows.Count > 1 Then Set Rng = Selection Else Set Rng = ActiveSheet.UsedRange End If For R = 1 To Rng.Rows.Count If Application.Sum(Range(Rng(R, 3), Rng(R, Rng.Columns.Count))) = 0# Then Rng.Rows(R).Hidden = True End If Next R End Sub Sub UnHideRows() Dim […]

Excel添加多行: 有一个快速的方法来做到这一点？例如，我有两行 AB 34 5 56 6 34 3 25 2 我想按行进行下面的计算。 A1 = A1 + B1 A2 = A2 + B2 A3 = A3 + B3 .. .. 现在我可以用一个循环的macros来做到这一点 for x = 1 to 500 sheet1.cells(x,1).vlaue = sheet1.cells(x,1).vlaue + sheet1.cells(x,2).vlaue next x 但是通过使用范围或其他可以作为一个步骤执行的方法，还有更有效的方法吗？干杯

在总览页面中显示最近更新的行 – Excel: 我有一个excel共享工作簿，几张纸和一个叫做概览的主表。例如：概览 – 工作表1 – 工作表2 – 工作表3 在表1/2/3中，我或其他人用一些数据更新行。很难跟踪工作簿中的最后一个条目（因为我需要在所有工作表中进行search），所以我想在我的概览页面中创build一个“前10名”dynamic列表，该列表将自动更新为最后一个工作簿中有10个更新的行。有人可以帮我吗？这是一个例子：谢谢！

我怎样才能将所有行中的SUM转换为MAX？: 我有一个大约2000行与SUM公式和不同范围的列。例如： =SUM(H2:H7) =SUM(H8:H11) =SUM(H12:H15) … 我需要的是： =MAX(C2:C7) =MAX(C8:C11) =MAX(C12:C15) … 我怎样才能做到这一点？

从列到行的Excel数据: 我有如下图所示的数据：我需要（用一个macros）安排数据，以便ELEVATION \ AZIMUTH之后的每一行都在第一行，如图所示：我有很多这样的数据行。也许任何人都可以帮忙？

简单的方法来复制公式扩展源行1？: 是否有复制公式的简单方法（请参阅“我想要的”，在这种情况下，简单地=B4 =B5 =B6 ）将源行增加1而不是使用复制行的Excel标准（请参阅“我得到的“，在这种情况下=B4 =B6 =B8 ）？公式被复制的距离模式总是相同的（在这个例子中总是跳过一个单元格）。源单元格/行中没有偏移量。

数确切的范围: 是否有一个公式或方法保持精确数量的行（即总是100行）并在所述行内计数 – 无论是插入还是删除？我试过绝对的引用，但插入和删除影响它。我现在唯一的方法是在完成所有插入和删除之后重写公式。 Sub ExactRowsCount() ' ' ExactRowsCount Macro ' Range("H1").Select ActiveCell.FormulaR1C1 = "=COUNTA(R[4]C:R[104]C)" Range("H2").Select End Sub

优化超过100,000行的循环代码: 我有一个超过10万行和几列的数据集。我试图实现的是在另一个范围内查找值，如果它匹配，把它放在旁边的列。如果有多个匹配的值，则插入另一行并放入。然而，代码需要永久加载和我的Excel最终崩溃…帮助！ Sub Splitter_Step1a() Dim RefSheet As Worksheet Set RefSheet = ActiveWorkbook.Worksheets("RefList") Dim ProdSheet As Worksheet Set ProdSheet = ActiveWorkbook.Worksheets("Products") Dim Brand, LastBrand, BrandList As Range Set LastBrand = RefSheet.Range("A1").End(xlDown) Set BrandList = RefSheet.Range(RefSheet.Range("A1"), LastBrand) Dim Reference, ReferenceList, LastReference As Range Set LastReference = ProdSheet.Range("C2").End(xlDown) Set ReferenceList = ProdSheet.Range(ProdSheet.Range("C2"), LastReference) Dim BrandInList As […]

在Excel中添加一些单词到全部或某些行？: 如果我想在每一列的数字之前添加一些单词，我该怎么做。 10 s 123 24 c 235 33 s 345 46 s 346 59 s 546 62 c 277 我的意思是：例如，我在第一列的每个数字前面加上“k”一词，然后得到 k10 s 123 k24 c 235 k33 s 345 k46 s 346 k59 s 546 k62 c 277

'结束（xlDown）'怪异: 我怀疑.end(xlDown) 。 Dim rfound As Range Set rfound = Columns("B:B").Find(What:=Me.ComboBox1.Value, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext) If ComboBox1.Value <> "" And WorksheetFunction.CountIf(Range("B:B"), _ ComboBox1.Value) > 0 And rfound.Offset(0, 1).Value <> "" Then rfound.Offset(0, 1).End(xlDown).Offset(1, 0).Value = TextBox1.Value 在CommandButton1_click ，代码将在列B中search任何匹配的条件，然后OffSet到右侧的单元格，条件是我的条件都满足了。但是，它提示我一条消息Run-time error '1004': Application defined or object-defined error 。我不知道问题在哪里。为了说明：