Tag: 行

无法从公式调用的函数中隐藏行Excel 2003: 我有这个非常简单的function Public Function HRows(xx As String) BeginRow = 2 EndRow = 10 ' HideRows For RowCnt = BeginRow To EndRow Cells(RowCnt,ChkCol).EntireRow.Hidden = True Next RowCnt End Function 当从一个命令button调用时，它工作正常，当作为公式调用，例如= HRows（A1），从工作表单元格它不会做任何事情在Excel 2003上，它可以在Open Office Calc 4.1 这发生在一个空白的电子表格上 – 没有保护，没有评论，没有形状（在其他问题中被认为是抑制剂）最后，我想隐藏/显示电子表格的相关部分，具体取决于用户在某些关键单元格中input的内容 – 我不想添加命令button来控制隐藏。

VBA将值从一行复制到另一个工作簿: 如果条件是真的，我有这个代码从一个表复制行到另一个，但我有一个小问题。 Sheet1的单元格有公式，我想只粘贴到Sheet2的值。我怎样才能在这个代码中做到这一点？ Sub CopyRows() Dim cell As Range Dim lastRow As Long, i As Long Dim FName As String Dim FPath As String Dim NewBook As Workbook lastRow = Range("A" & Rows.Count).End(xlUp).Row i = 1 For Each cell In Sheets("Sheet1").Range("T1:T" & lastRow) If cell.Value = "X" Or cell.Value = "Y" Then cell.EntireRow.Copy Sheets("Sheet2").Cells(i + […]

将行号作为variables传递，并引用其他表单: 我在一张纸上收集了一行数据（ Harvest targets ），我想将其转换为另一个Field worksheet表（ Field worksheet ）到一个数组中。在第二张Field worksheet表（ Field worksheet ）上，我有一个下拉列表（ A31 ）来select裁剪，并且在它旁边有一个单元格（ I31 ），用于输出第一个工作表中裁切的行号（ Harvest targets ）。我试图使用下面的公式，但它不工作（我得到一个错误）： =TRANSPOSE('Harvest targets'!(INDIRECT("X" & I31):INDIRECT("AU" & I31))) 任何想法，我做错了什么？我试图使用INDIRECT在预定范围的列（ X:AU ）中I31由I31设置的另一个表中正确的行。

运行时错误“1004”？ Excel VBA: 我的代码有问题。我试图过滤范围排除列K中的值等于“三月”，并删除这些行的行。因此除了“March”之外的所有行都将被显示。该代码运行良好，当它试图删除。 .Offset(1, 0).SpecialCells….它给我运行时错误1004 Public Sub RemoveRows() Dim ws As Worksheet Dim strSearch As String Dim lRow As Long strSearch = "March" Set ws = Sheets("January") With ws lRow = .Range("B" & .Rows.Count).End(xlUp).Row '~~> Remove any filters .AutoFilterMode = False '~~> Filter, offset(to exclude headers) and delete visible rows With .Range("K1:K" & lRow) […]

基于单元格颜色excel vba删除行: 我正在尝试删除基于单元格颜色的行。我遇到的问题是我写的代码保持“跳过行”： For i = 2 To lastRow 'MsgBox (Cells(i, 1) & " " & Cells(i, 1).Interior.ColorIndex) If Worksheets("Export Worksheet").Cells(i, 1).Interior.ColorIndex <> "4" Then 'MsgBox ("Row " & i & " will be deleted") Rows(i).EntireRow.Delete 'MsgBox ("i is currently " & i) i = i + 1 'MsgBox ("i is now " & i) End […]

如何指定“复制列vba”的开始行？: 我正在使用以下string将一个列从一个表复制到另一个 Dim wsCore As Worksheet Dim wsData As Worksheet Set wsCore = Sheets("R2 Data Dump") Set wsData = Sheets("Active") Dim rowNumber As Integer Dim cellFormulas As Variant Dim cellFormulas1 As Variant Dim counter As Integer counter = 0 Dim currentCell As String Dim importSheetCell As Variant Dim importSheetOffset As Variant Dim contractnum As Integer Dim […]

Powershell Excel从数组中添加行: 我知道如何通过一个COM对象来逐个更新Excel的电子表格，但是速度非常慢。我有一个包含约15个属性（string或布尔值）的大约600个对象（用户详细信息）的pscustomobject数组。我怎么会更新Excel中的行，通过使用Value2将每个数组对象传递给它？有人可以粘贴一个传递数组和更新整行的工作示例？以下代码适用于第一行（标题），但不更新行。 $obj_fields = $obj | Get-Member | ?{$_.membertype -eq 'noteproperty'} $alpha_column = [char]($obj_fields.count + 96) If ($row -eq 2) { #heading $range = $SPREADSHEET_WORKSHEET_2.cells.Item(1,1).range("a1`:$($alpha_column)1") $range.Value2 = $obj_fields.Name } #values $range = $SPREADSHEET_WORKSHEET_2.cells.Item($row,1).range("a$row`:$alpha_column$row") $tmp = ($obj_fields | %{$obj."$_"}) $range.Value2 = $tmp 这篇文章看起来类似于我正在做的，但我没有使用activesheet，并不能得到它的工作。谢谢大家

在列中查找具有一定值的第一个单元格，然后在上面插入3行: 我每天早上在电子表格上工作，需要在VBAmacros中自动执行以下操作：在AE列中，查找大于零的第一个值，然后在包含该特定单元格的行的上方插入3行。

如果列包含大于1的数字，则多次复制该行: 好吧，所以我得到了这个工作，并添加了我的代码，以在同一个循环中更改另一列，我最后的挑战是看我的Q列，其中包含订购的项目的数量，如果它是> 1那么复制整行，然后将其粘贴到新插入的行中，但数量超过1个。例 Josh Smith Soda 1 John Doe Banana 3 Tony Brown Cake 1 将需要成为 Josh Smith Soda 1 John Doe Banana 3 John Doe Banana 3 John Doe Banana 3 Tony Brown Cake 1 我的代码到目前为止是： Sub prepLabels() Dim i As Long For i = 3 To Range("A2").End(xlDown).Row Step 1 If Cells(i, "Q") > […]

将行值复制到具有相同ID的其他行: 我有一个excel数据库中的以下结构： ID Variable1 Variable2 1 XY 2 X2 Y2 2 3 X3 Y3 4 X4 Y4 4 4 5 X5 Y5 我正在寻找一个公式（代码？），它将给定行的variables值复制到具有相同ID的所有其他行。例如，将X4和Y4复制到包含4作为ID的所有其他行。谢谢！