为什么range(..).End()在非活动工作表中不起作用？
range(..).End()是Excel VBA中的一个方法，用于确定一个区域的结束位置。然而，它在非活动工作表中可能不起作用的原因是因为该方法只能在活动工作表上使用。
活动工作表是指当前用户正在查看和操作的工作表。当用户切换到其他工作表时，该工作表将成为非活动工作表。在非活动工作表上使用range(..).End()方法将导致错误或不可预测的结果。
为了解决这个问题，可以使用以下方法之一：
- 在使用range(..).End()方法之前，先将非活动工作表切换为活动工作表。可以使用Activate方法将工作表设置为活动工作表，然后再使用range(..).End()方法。
- 直接引用非活动工作表的范围，而不使用range(..).End()方法。可以使用Cells属性来引用整个工作表的范围，例如：Worksheets("Sheet1").Cells。
需要注意的是，以上方法只适用于Excel VBA编程环境。如果在其他编程环境中使用range(..).End()方法，可能会有不同的行为和限制。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 腾讯云云数据库 MySQL 版：https://cloud.tencent.com/product/cdb_mysql
- 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
- 腾讯云人工智能：https://cloud.tencent.com/product/ai
- 腾讯云物联网通信（IoT Hub）：https://cloud.tencent.com/product/iothub
- 腾讯云移动推送（TPNS）：https://cloud.tencent.com/product/tpns
相关·内容
我正在尝试使用一个输入框来选择工作表中的一个范围。从理论上讲，这很简单。用户在工作表上选择一个命令按钮，该命令按钮打开一个userform。userform允许选择几个选项按钮中的一个。提交表单后，我希望用户能够从活动工作表中选择一个范围。
在用户表单提交之后，将出现范围输入框，但不允许在活动工作表上进行选择。
如果我直接从工作表调用inputbox (不要在userform中运行)，则输入框可以正常工作。但是，在这个应用程序中，我需要userform来允许选择。
我已经尝试重新激活工作表，以编程方式选择默认范围，隐藏和卸载用户表单。
从根本上说，这就是我所做的一切：
Public Funct
浏览 1提问于2016-01-08得票数 0
回答已采纳
我需要查看屏幕上是否有可见的单元格。
我所说的可见，并不是指隐藏。我特别想知道一个单元格当前是否显示在活动工作表中，或者它是否没有显示，即:它已经从可见的活动工作表中滚动出来。
我已经在网上找过了，只找到了以下代码，似乎对我来说不起作用：
Private Sub CommandButton1_Click()
With Worksheets(1).Cells(10, 10)
'MsgBox "Value: " & .Value & ", Top: " & .Top & ", Left:
浏览 0提问于2012-08-14得票数 10
回答已采纳
在我正在创建的工作簿中，我创建了一个过程，它遍历几个工作表，清除一些ranges++，为新的一年准备工作簿。但是，我希望在工作表中设置一个给定的单元格，例如，在移动到下一个工作表之前，将F5设置为活动单元格，因为这很可能是用户在移动到工作表时开始输入数据的地方。
但是，试图将.Select和.Activate都放入下面代码的第5行，Select / Activate method of Range class failed失败了。
For Each ws In ThisWorkbook.Worksheets
If InStr(1, ws.CodeName, "Veke_&#
浏览 3提问于2015-11-02得票数 1
我正在努力做到以下几点：
Sheet1:用户单击运行VBA的按钮。
Sheet2: VBA选择D列上的第一个非空白单元格
范围(“D”& Rows.Count).End(xlUp).Offset(1).Select
Sheet1: VBA复制一系列值
工作表(Sheet1).Range(“E2:AJ11 11”).Copy
Sheet2: VBA将复制的范围粘贴到先前选定的活动单元中。
--我试着粘贴到活动单元格中的这个部分不起作用：
Worksheets("Results").ActiveCell.PasteSpecial xlPasteVal
浏览 3提问于2017-10-27得票数 0
回答已采纳
2回答
我已经查看了建议的问题，以找到我问题的答案。最接近的问题称为:计算不同Excel表格中的行数
这个问题的解决方案对我不起作用。
我正在尝试计算与活动工作表不同的工作表中某个范围内的行数。下面是我的代码：
Sub verbflashcards()
Dim wordcount As Long
With Worksheets("Verbs")
wordcount = .Range(Cells(4, 1), Cells(4, 1).End(xlDown)).Rows.Count
End With
MsgBox (wordcount)
End Sub
我有一个名为Verbs的工作表
浏览 0提问于2015-01-04得票数 8
回答已采纳
2回答
重新措辞的问题：
为什么必须激活工作表才能用cells构建cells
我有一个快速(希望)简单的问题。
使用
Dim XRange As Range
为何：
Set XRange = ActiveWorkbook.Sheets("Pivot").Range("K20:L26")
工作和：
Set XRange = ActiveWorkbook.Sheets("Pivot").Range(Cells(21, 11), Cells(22, 26))
不是吗？
它抛出一个1004运行时错误。因为我的Excel是德语，它说：
Laufzeitfehl
浏览 2提问于2015-04-27得票数 3
回答已采纳
我试图在以前有密码保护的工作簿中的另一个工作表中运行一个粘贴值宏。
宏在值的目标表中工作得很好，但在我得到此错误的其他选项卡中却不起作用。
如何继续允许此宏从不同的活动工作表中运行？
Sub PasteSpecial_ValuesOnly()
Worksheets("ARF Table").Range("A2:AI13").Copy
'Error occurs below
**Worksheets("ARF Export").Range("A2:AI13").Select**
Selection.
浏览 2提问于2018-10-18得票数 0
回答已采纳
1回答
我想通过工作簿中所有工作表的最后一行复制粘贴工作表的第一个单元格，但我的代码不起作用，代码仅在活动工作表上完成。
Sub Macro5()
'
' Macro5
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Range("A2").Copy Destination:=Range("A3:A" & Cells(Rows.Count, "B").End(xlUp).Row)
Next ws
End Sub
谢谢你的帮忙
浏览 0提问于2015-10-13得票数 3
我在创建宏时遇到问题，该宏将在我的活动工作表中的“信息”工作表的范围内找到指定值。如果单元格值未在范围内找到，则会给出一个消息框，说明“未找到值”。我有以下内容，但它不起作用：
Sub testrot()
Dim i As String
Dim srchrng As Range
Sheets(ActiveSheet.Name).Select
i = Cells(2, 5)
Sheets("Information").Select
Set srchrng = Range("j8:j17").Find(what =
浏览 0提问于2016-10-14得票数 0
对VBA非常陌生。
在每个工作表上，我尝试复制适合RGB配置文件的单元格，并将其粘贴到同一工作表的T2中。
模块正在运行，但什么也没有发生。
提前感谢
Sub CopyColor()
Dim rCell As Range
For Each rCell In ActiveSheet.UsedRange
If rCell.Interior.ColorIndex = RGB(112, 173, 71) Then
rCell.Select
rCell.Copy
rCell("T2&
浏览 0提问于2018-08-07得票数 0
1回答
为什么这段代码会失败？我希望它循环遍历所有的工作表，并对指定的范围进行排序。
代码在我使用
For ws each activeworkbook.worksheets
ws.activate
但是当我使用下面的代码时，它就不工作了。
谁能帮我解释一下为什么VBA会出现运行时错误1004
我也更喜欢使用For j = 2 to thisworkbook.worksheets.count，但这也不起作用
Sub beautsort()
Dim LR As Long, LC As Long
Dim i As Integer, j As Integer
Dim ws As Worksheet
A
浏览 0提问于2017-10-14得票数 0
我有以下代码，但它只在活动工作表上工作，而不是在所有工作表中循环。我不确定为什么它不是lopping，因为我以前使用过下面的循环语法。
Sub Paste_Values()
Application.ScreenUpdating = False
Dim WS As Worksheet
For Each WS In Worksheets
Range("A1:V104").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
浏览 0提问于2018-10-03得票数 0
1回答
我希望从工作簿中复制一个工作表，并将它粘贴到我的活动工作簿中的第二个工作表中。我是vba的新手，这看起来并不困难，但我的代码不起作用。复制的工作表是在新工作簿中打开的，而不是在我的活动工作簿中打开的。
谢谢你的帮助！
我的代码：
Sub copyPaste()
Dim classeur1 As Excel.Workbook
Dim classeur2 As Excel.Workbook
Set classeur1 = Workbooks.Open("Macintosh HD:Users:LouiseDhainaut:Documents:Stage:test_modifi
浏览 3提问于2016-08-04得票数 1
我想知道如何识别非活动工作表的最后一行(而不将控件传递给非活动工作表)，然后如何将数据传递给活动工作表中的行号：“LastRow+1”。并保持对活动工作表的控制。
我是一家小公司的所有者，我想创建一个excel表来监控我的库存。5年前，我在VB中做了一点点编码，但现在只记得很少。确实为上面提到的任务编写了代码，但我的代码没有任何用处:) .所以不要把它粘在这里。感谢你的帮助。
浏览 2提问于2013-04-06得票数 0
我使用下面的visual basic在一个文件夹中选择多个excel工作簿，并将它们合并到活动工作簿的第二个工作表中。
在实际代码示例中，它合并整个范围为“原样”，包括所有列、行和blanco单元格。我只需要使用的一些单元格 (B3、B5、B7和E48)从所选工作簿中的第一个工作表复制的数据，然后将它们粘贴到中，在第二个工作表上每个合并的工作簿只粘贴一行。
如何防止宏将所有这些不必要的数据写入目标表？或者，至少，我如何将B3:E48的范围合并成目标表中的一行？
Private Declare Function SetCurrentDirectoryA Lib _
"ke
浏览 1提问于2011-11-17得票数 1
1回答
当运行以下代码时，我得到错误“运行时错误'1004'：应用程序定义或对象定义的错误”。它在标记的行断开
Dim cwb As Workbook
Dim csh As Worksheet
Set cwb = Workbooks.Open("M:\Secretary Resources\AppTracking\SentSurveys.xlsx")
Set csh = cwb.Sheets("Sheet1")
''It breaks on this next line
csh.Range("A1").End(
浏览 0提问于2017-10-21得票数 0
当我运行这段代码时，我很难弄清楚为什么会出现上述错误。有时起作用，有时不起作用？代码位于工作表中，而不是模块中，我怀疑这可能是问题所在，但同一段代码在工作簿中的另一个工作表中运行良好。
谁能告诉我我错过了什么吗？
谢谢。
Sub DeleteRow()
On Error GoTo error_handler
Dim Button As Shape
Dim CellinRowtoDelete As Range
'Run sub routine
ClearSearchandFilter
Application.ScreenUpdating = False
'Determi
浏览 0提问于2014-03-20得票数 0
我需要一个宏来隐藏同一选项卡中两个不同表中的空行。问题是下面提到的第一个宏在第二个选项卡(称为服务)中起作用，但在第三个选项卡(称为第三方)中不起作用。每个选项卡中的两个宏都分配给按钮(每个选项卡上一个)。最重要的是，相同的宏(下面提到的第一个宏-没有循环的较长的宏)曾经在这个选项卡中工作，但由于某种原因突然停止工作，所以我真的需要知道为什么它停止工作，以防止它在未来发生，以及找出如何修复下面提到的两个宏。
Sub HideRowsInThirdPartyTabTemp()
Call TurnOffFunctions
If Sheets("THIRD-PARTY").Rows(
浏览 0提问于2019-08-09得票数 0
为什么这段代码停止工作？
在几十年中，我使用了范围为VBA中工作簿级别的Excel范围名称，而在大多数情况下，不必对Range()对象与其Sheet()对象父对象进行限定。最近，它停止工作，如果命名范围不在活动工作表上，则现在抛出一个1004错误。
过去起作用的代码
If Range("SNAP_Current").Value = Range("SNAP_Backup").Value Then
debug.print "True"
else
debug.print "False"
End If
在这种情况下，
浏览 2提问于2020-05-18得票数 1
1回答
我想通过一个函数格式化工作表的一些单元格，该工作表不是活动的。这是我目前的代码：
我这样调用这个函数，并给出它的工作表：
i = DesignWorksheet(ws)
该函数目前看起来如下：
Function DesignWorksheet(ws As Worksheet)
ws.Range(Cells(rowCurrent, 2), Cells(rowCurrent, 4)).Borders(xlEdgeBottom).Weight = xlThick
End Function
这将导致错误消息：
运行时错误“1004”：对象“_Worksheet”的方法“范围”失败
现在，我试
浏览 2提问于2018-07-20得票数 0
回答已采纳
1回答
我正在尝试使用以下公式创建一个具有特定名称的新工作表：
With ThisWorkbook
.Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = Range("B2") & "_MCT"
End With
因此，新的工作表将被命名为"X_MCT"，X是单元格B2中的值。
在相同的代码中，我添加了一个代码，希望用原始工作表中的值填充这个新工作表。有办法这样做吗？下面是新创建的工作表中的一个示例公式：
Sheets("MCT").Cells(i +
浏览 4提问于2022-05-09得票数 1
回答已采纳
我使用下面的代码从A2单元中清除内容直到最后。如果活动工作表是TimeStampWork，则此代码工作良好。但是，如果我在任何其他的工作表上，我得到了错误1004，方法‘范围’的对象'_Worksheet‘失败的错误。如何在工作表不活动的情况下运行相同的代码？
Sub test1()
Dim ForClr As Worksheet
Set ForClr = Workbooks("Main.xlsm").Sheets("TimeStampWork")
ForClr.Range("A2", Range("A2").End(xl
浏览 2提问于2017-08-28得票数 1
回答已采纳
我一直在研究中的一些想法。我在测试工作簿中有3个工作表，并希望在执行其他操作后将光标移动到每个工作表上的特定单元格中。以下内容输入单元格值，但只将活动单元格移动到初始工作表上的M5：
Dim rngTest As Range
Dim shtTest As Worksheet
Set rngTest = [M5]
For Each shtTest In ThisWorkbook.Sheets
With shtTest
.Range("m10").Value = "hello"
End With
rngTest.Selec
浏览 5提问于2016-06-08得票数 1
回答已采纳
3回答
我想在多个工作表上隐藏空白列。我可以只在活动的工作表上这样做，但当我尝试这样做时，它适用于名称中包含一个月的所有工作表，它不起作用。这就是我到目前为止所知道的： Sub CommandButton1_Click()
Dim col As Range
Dim sheetsArray As Sheets
Set sheetsArray = ActiveWorkbook.Sheets(Array("*Jan*", "*Feb*", "*Mar*", "*Apr*", "*May*", "*Jun*&
浏览 24提问于2019-01-21得票数 2
回答已采纳
2回答
假设我有两个Excel工作簿(实际上，我有一个工作表结果，可能还有其他包含数据的工作簿)。我想创建一个宏，允许我取所选内容的算术平均值并将其粘贴到我的活动单元格中。我已经写了一个宏，允许我在不同的工作簿之间粘贴复制的值，非常简单：
Sub PasteVal()
Selection.PasteSpecial xlPasteValues
End Sub
但是，尝试执行算术平均值复制不起作用：
Sub PasteMean()
ActiveCell.PasteSpecial (Application.WorksheetFunction.Average(Selection))
End
浏览 49提问于2017-07-04得票数 0
我在下面有一些代码。即得到“运行时错误'1004‘对象'_Worksheet’的方法‘范围’失败”。我可以通过使用ws.Activate方法(见第二块)让它工作，但我想知道为什么它不能工作。
仅当代码在非活动工作表上运行时，才会出现故障: 1)在具有.FillDown的行上；2)当代码在非活动工作表上运行时。
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets(1)
Set ws2 = Worksheets(2)
ws1.Range("D2").Formula = "=CONC
浏览 1提问于2017-11-03得票数 1
我在表1中有一个包含不同值的列。我想循环遍历列，并使用与这些值对应的表名创建新的表。每次创建工作表时，我都喜欢将新工作表设置为活动状态，并在该工作表上执行一些任务。 Sub test()
i = 4 'starting row in sheet 1
While Not IsEmpty(Cells(i, 1))
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets.Add
ws.Name = Cells(i, 1).Value
'do something to new sheet
浏览 20提问于2019-05-09得票数 0
我正在寻找关于如何编写宏的建议，做以下工作。我想这很容易，但我想不出来。提前感谢！
开始
在活动工作表中(在工作簿中，我正在运行此宏，标题更改，但每次格式相同)，复制单元格B9。粘贴在我正在使用的其他工作簿的下一个空白行的A列中，每次运行此进程时都可以具有相同的标题，或者只是打开的唯一其他工作簿
在活动工作表(在我正在运行此宏的工作簿中)中，复制单元格B8。粘贴到上述行的B列中。
在活动工作表(在我正在运行此宏的工作簿中)中，复制单元格B12。粘贴到上面标识的行的C列中。
在活动工作表(我正在运行此宏的工作簿中)中，复制单元格A17:E17。粘贴在上述行的D:H中。
在活动
浏览 3提问于2017-04-18得票数 1
我有一个非常简单的用于测试的工作簿宏，当满足条件时它不会执行。你知道为什么吗？宏已启用，模块正在工作，但是，工作表代码将不起作用。知道为什么吗？
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$3" Then
Call macro1
End If
End Sub
然后我试着
if A1 = "correct!"
msgbox "hey"
else <do nothing>
如果我在单元格J3中调整了任何内容，
浏览 0提问于2017-01-12得票数 0
1回答
我试图遍历工作簿中的每个工作表，但它不起作用。我认为这是因为ActiveWorkbook.Worksheets不识别每个工作表，只在活动工作表上运行。任何建议都会很好！我相信这是一个基本的解决办法，但似乎无法解决。谢谢!
Sub LoopThroughWorksheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If (ws.Name <> "Sheet1") And (ws.Name <> "Sheet2") And
浏览 0提问于2014-10-27得票数 0
回答已采纳
更新：
好的，所以我使用了下面的代码，它做了我需要它做的事情，即检查值是否为0，如果是，则删除整行。但是，我希望对一个工作簿中的多个工作表执行此操作，一次一个。下面的代码只从当前电子表格中删除零，默认情况下，当您通过VBA脚本打开excel时，当前电子表格处于活动状态。下面是工作中的零删除代码：
Dim wsDCCTabA As Excel.Worksheet
Dim wsTempGtoS As Excel.Worksheet
Set wsDCCTabA = wbDCC.Worksheets("Login")
Set wsTempGtoS = wbCalc.Worksheet
浏览 0提问于2012-04-18得票数 0
我不明白这里发生了什么..。当我从工作表(1)中运行代码时，userform dropbox加载得很好，但是当我转到shhet (2)是活动的时候，它认为shhet (1)-第4行是我的数据的结尾.(这恰好是代码设置为.上的命令按钮的工作表)
我是不是很特别？
这是密码..。
Private Sub UserForm_Initialize() 'sets up combobox's
PurchUnit.List = Sheets(1).Range("PurchasingSizes" & Range("K41").En
浏览 3提问于2019-03-10得票数 0
回答已采纳
有人能帮我吗?我有一个工作表，在一个代码条目上，我需要它从那一行中提取出特定的单元格，并显示在活动的工作表上。这是我所掌握的，并且可能会给我一些关于我在VBA方面有多无知的想法，而且它不起作用。
Sub AddProduct()
On Error GoTo MyErrorHandler:
Dim Code As Long
Code = B4
Sheets("Code Input Sheet").Range(A9) = Application.VLookup(Code,Worksheets("Cost Sheet").Range("A2:XFD104857
浏览 5提问于2016-01-28得票数 0
回答已采纳
5回答
对于为什么下面的代码不会在工作表中循环，你有什么想法吗？
我正在尝试根据工作表的名称在每个工作表中设置一个列。它被卡在活动工作表上，并忽略If ws.Name <> "Default"。这是作为一个模块构建的：
Sub LangID_update()
Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet
Dim LastCol As Integer
Dim LastRow As Integer
Dim rng As Range
Application.ScreenUpdating = Fals
浏览 2提问于2015-10-09得票数 0
1回答
感谢这个论坛上的一些人，我有这段代码，可以将多个单元格从引用活动表复制到主工作表中，同时转置它们。我遇到的唯一问题是有一个区域包含空白单元格，我希望函数忽略这些单元格。我曾尝试在skipblanks=true中使用specialpaste函数，但没有任何帮助。有什么建议吗？
Macro1()
Dim master As Worksheet, source As Worksheet, copyCols() As Variant, pasteCols() As Variant, i As Integer
Set master = Workbooks("Combined Spreadshe
浏览 3提问于2014-06-28得票数 1
我编写了一个代码，简单地对工作表上的一个名为"Saisie“的选项卡进行排序。当"Saisie“是活动工作表时，它会工作。但我希望代码能从另一张纸上运行。守则是：
Range("H1:K2001").sort Key1:=Range("H1"), Order1:=xlAscending, Header:=xlYes
代码是在模块中编写的。
因此，当另一个工作表处于活动状态时，我添加了我认为有必要的内容：
我试过：
Dim sh As Worksheet
Set sh = ActiveWorkbook.Sheets("Saisie"
浏览 0提问于2019-01-08得票数 1
回答已采纳
2回答
我正在尝试编写一个VBA代码，循环遍历活动工作簿中的每个工作表，并删除所有空白列和行，直到第一个带有数据的单元格。例如，如果第一个带有数据的单元格是D5，那么将删除A1列和第1-4行，留下以A1开头的数据。下面有为活动工作表工作的代码，但我不知道如何让它在其他工作表中循环。
Sub DeleteRowsColumns()
' This will delete all Blank Columns and Rows before any data
Dim ColCounter As Long
Dim RowCounter As Long
Dim SafeCount
浏览 5提问于2020-09-14得票数 0
回答已采纳
1回答
因此，我写了这样的东西...
Public Function getColumnLen(firstCell As Range) As Long
Dim lastRow As Long
lastRow = Range(firstCell.Address).End(xlDown).Row
getColumnLen = lastRow - firstCell.Row + 1
End Function
Dim colLen as Long
colLen = getColumnLen(Worksheets("A").Range("A1"))
当我想知道从A1开始的数
浏览 1提问于2012-10-26得票数 0
回答已采纳
我不知道为什么要跳出下标误差范围。当我单击combobox1并选择一个项时，MaternityForm组合框将在我的工作簿中填充工作表。然后，除了在MaternityForm中选择的工作表之外，我还想隐藏其他工作表。活动工作表随后将从userform接收数据，但我正在被下标，超出了范围错误。
Private Sub Get_Data_Click()
Dim ws As Worksheet
Dim xWs As Worksheet
For Each xWs In Application.ActiveWorkbook.Wo
浏览 2提问于2019-02-02得票数 0
回答已采纳
在处理活动工作表时，我需要在不同的工作簿(“draft1”)中调用工作表(“基本”)。活动工作簿(“draft2”)和需要调用的工作簿都有一个工作表“基本”，但我特别需要draft1中的工作表。但是，下面的工作是使用活动工作表中的“基本”工作表(因为没有指定工作簿)，并且不返回错误。
Set C = Worksheets("Base").Range("A1").Offset(0, i)
但是，当我使用下面的内容时，我会得到一个编译错误，并且宏在中途停止。两个文件都保存在同一个文件夹中，所以这不会是一个问题。但是，即使我用工作簿的完整地址调用它，也会返回相同的错误
浏览 2提问于2021-10-11得票数 2
回答已采纳
这是我试图运行的代码： Sub test()
Dim rng As Range
Dim iCounter As Long
For Each rng In Worksheets(1).Range("D2", Range("D" & Rows.Count).End(xlUp))
If rng.Value <> "" Then
Worksheets(2).Range("D1").Offset(iCounter, 0) = rng.Value
浏览 10提问于2020-06-19得票数 0
回答已采纳
1回答
在工作簿中，我希望循环遍历所有工作表，并根据每个工作表的某个单元格中的关键字，隐藏相应工作表中的一些不连续的列。隐藏单个列或多个连续列没有问题，但是当我将多个非连续列设置为我的范围时，它就不起作用了。 Sub HideColumns()
Dim i As Integer
Dim x As Integer
i = Worksheets.Count
For x = 1 To i
Worksheets(x).Range("A:AX").EntireColumn.Hidden = False
If InStr(1,
浏览 20提问于2019-06-13得票数 0
1回答
我正在尝试删除工作簿中所有工作表中的所有空行。我已经将以下代码组合在一起，但它似乎只在活动工作表上工作。我正在努力确定为什么它不适用于我的for循环中的所有表。任何建议都将不胜感激
Sub deleteemptyrows()
Dim r As Range, rows As Long, i As Long, ws As Worksheet
Set r = Application.InputBox( _
Title:="Macro Cell Range", _
Prompt:="Select range you would like to delete
浏览 0提问于2019-12-06得票数 1
我是VBA的新手，目前正在做一个项目。我正在做的项目由两个工作表组成。一个工作表由将放置数据的表组成，另一个工作表由所有数据组成。我正在尝试编写一个索引/匹配，该索引/匹配使用活动报告表中的列Q作为输出，并将活动单元格第一列中的日期与活动报告表A列中的日期相匹配。我还将表(活动单元格列中的第二行)上的活动名称与活动报告表中的f列进行匹配。找到匹配项后，应将活动报告表的Q列中的相应值输出到活动单元格
我以前用过这种方法，但现在我想让它变得动态起来，因为竞选报告表将不断添加新的数据，而我不知道如何使用各种变量来使索引/匹配公式工作。
再一次，我非常新手，所以我知道公式写得不正确，但我被困在如何修复
浏览 8提问于2021-03-04得票数 1
回答已采纳
2回答
我的Module1宏看不到工作表代码中声明的变量的值。你知道这是为什么吗？一切都是公开的。
在我的工作表中，我有：
Public oldVal As Variant
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
oldVal = Target.Value
End Sub
在Module1中，我有一个连接到按钮的宏，它(出于测试目的)应该只打印oldVal，但它不起作用。消息框为空。
Public Sub button_Click1()
MsgBox oldVal
End Sub
你知道为什么它没有从工作表中获取变量&#
浏览 0提问于2015-11-19得票数 2
我试图从工作簿中的每个工作表中复制特定的数据，并将其粘贴到一个又一个不同的工作表上。每个工作表上的行数不同，因此我只需要选择非空白单元格(并排除导致空白ie=“”的公式。我也需要它跳过5页以上，因为这些没有信息被要求。表格“摘要模板”、“里程汇总”、“里程跟踪器”、“活动跟踪器”和"PBI数据“。
以下是我想做的事：
循环遍历每个工作表，除了上面的5张。在每个工作表上，复制范围内的所有非空白单元格(B26:E38)，并将它们粘贴到下一个空白单元格下的“活动数据”工作表上。
我试着拼凑了几个不同的代码，但它们都没有一起工作。
请帮帮我！
我真的很感谢你的帮助，谢谢！
下面是我
浏览 2提问于2016-04-03得票数 1
1回答
我试图在excel vba中测试偏移量属性。我使用的是一个简单的代码，它选择的单元格是daigonal的，即1行和1列远离活动单元格。
这就是我要做的
Sub Range_Offset()
Range(ActiveCell).Offset(1, 1).Select
End Sub
我已经把密码附在工作表上的一个按钮上了。
当我单击该按钮时，将得到以下错误
Run-time error '1004'
Method 'Range' of object '_Global' failed
如果我用任何单元格号替换ActiveCell，它就工作了。但是
浏览 2提问于2015-06-17得票数 0
回答已采纳
如果每个工作表上的K1 > 0，则尝试让VBA循环遍历工作表和颜色选项卡红色。到目前为止，我没有在工作表中循环使用，只是使用了活动页的颜色：
Sub IfJNegRedTab()
'
'
'
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
Range("K1").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(C[-1],""<0"")"
If Range("K
浏览 1提问于2018-05-16得票数 1
回答已采纳
我知道这是一种常见的查询类型，但在主动搜索之后，我还无法找到我的特定实例的答案。我也是一个新的VBA用户，所以请容忍我。
我要将包含活动公式(范围A1:HW6000)的整个数据表(HISTORY.XLSM中的AllDATA选项卡)从已关闭的工作簿导入到活动工作簿中，但只将其作为值粘贴到活动工作簿中。更简单地说，希望将关闭的工作簿中的一个工作表作为值(而不是实时形式)复制到活动工作表中。
我使用的是。
这是我一直使用的代码(运行活动工作簿中的代码)。
Sub GetRange()
With Range("A1:HW6000")
.Formula = "=&
浏览 0提问于2017-04-12得票数 1
2回答
嗨，我有代码，意思是
循环遍历以"673“开头的所有工作表
复制从第5行开始具有数据的所有行。
将条目粘贴到“颜色”工作表下一个空行上。
我有以下问题：
代码仅在活动的工作表中运行。
不会循环遍历所有工作表
当它粘贴在“颜色”工作表中时，它直接粘贴在第2行的标题上。第一行是第3行，我希望逻辑粘贴到下一个可用的空白行，因为它在工作表中循环。
为ActiveWorkbook.Worksheets中的每个工作表合并()最后一行和工作表集报告一样长的Dim报表=ActiveWorkbook.Worksheets中每个工作表的InStr(Sheet.Name，&#
浏览 9提问于2016-05-07得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
云直播活动推荐
腾讯云开发者
