尝试获取End(xlDown) +1行时出现对象所需错误
这个问题涉及到Excel VBA编程中的一个常见错误。当我们尝试使用VBA代码获取一个列的最后一行时，常常会使用End(xlDown)的方式。然而，在某些情况下，当该列中没有任何数据时，使用End(xlDown)会导致出现对象所需错误。
解决这个问题的方法是使用其他方式来获取最后一行。以下是一种常用的方法：
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1上述代码中，我们使用Cells(Rows.Count, 1)来定位最后一行，然后使用End(xlUp)来向上搜索到最后一个非空单元格。最后，我们将获取到的行数加1，即可得到下一行的行数。
这种方法的优势是可以避免使用End(xlDown)可能导致的错误。它适用于大多数情况下，无论是在前端开发还是后端开发中都可以使用。
在腾讯云的产品中，与Excel VBA编程相关的产品可能不是很明确。然而，腾讯云提供了一系列的云计算产品和服务，可以满足各种开发需求。您可以参考腾讯云的官方文档和产品介绍页面，了解更多关于云计算的内容。
腾讯云产品介绍链接：腾讯云产品介绍
请注意，以上答案仅供参考，具体的解决方法和推荐的产品可能因实际情况而异。建议根据具体需求和情况进行进一步的研究和调整。
相关·内容
为什么在End(xlDown)中执行VBScript时会出现“未知运行时错误”？
Dim objExcel, objSheet, pbjPath, objBook
objPath="C:\Users\Documents\automateexcel.xls"
Set objExcel = CreateObject("Excel.Application")
Set objBook = objExcel.Workbooks.Open(objPath)
Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
objS
浏览 8提问于2017-09-13得票数 0
4回答
Sub DataInputBox()
Dim Id As Integer
Dim Name As String
Dim gender As String
Id = InputBox("Enter in your id")
Name = InputBox("Enter in your Name")
gender = InputBox("Enter in your gender")
Sheets(2).Range("a1").End(xlDown).Offset(1, 0)
浏览 7提问于2016-04-30得票数 0
回答已采纳
我正在Excel 2007中为VBA开发宏
还有一个用11列填充ListBox的部分。有时，当我调用此方法来重新填充信息时，会出现这样一条消息：
Se ha producido el error '7‘en tiempo de ejecución: Memoria insuficiente
在英语中是这样的：
运行时出现了“7”错误:内存不足
代码指向这一行代码：
vList = ws.Range("A2"，ws.Range(A2).End(XlDown).End(XlToRight))
我保证通过将此函数上使用的所有对象设置为空来释放内存。
这
浏览 3提问于2014-12-02得票数 0
我有这样的代码，它使用xlDown来确定最后一行数据(减1)，但我需要转到定义的列。因此，选择如下:转到A6，然后执行xlDown -1，然后从xlDown中选择生成的行，并将其与列BU组合
例如，如果来自xlDown的结果是第89行，那么要选择的范围应该是A6:BU89 --我尝试使用xlRight，但是数据不一致，可以在不同的地方有空白列，但我总是想转到BU列。
我好像搞错了，有人能帮我吗？
Sub AAPrepare_Pipeline_Data()
Range("A6").Select
Range(Selection, Selection.End(xlDown).
浏览 0提问于2018-12-29得票数 0
回答已采纳
Set rng = ws.Range("A1", ws.Range("A1").End(xlDown))
For each cl in rng
获取运行时错误“1004”：
Application-defined or object-defined error in
**Set rng = ws.Range("A1", ws.Range("A1").End(xlDown))**
请帮帮忙
浏览 5提问于2014-09-10得票数 2
回答已采纳
1回答
我在Windows 7上使用Excel 2010，我有一个VBA宏，它必须把一个公式放在Excel 2010的表格下面。该表是一个具有列名日期、流量、MB和请求的ListObject，#i使用以下代码添加公式：
With ActiveWorkbook.Worksheets("Sheet1").ListObjects("myquery1").Range
.Columns(2).End(xlDown).Offset(1, 0).Value = "=SUM(myquery1[Traffic, MB])"
.Columns(3).End(
浏览 3提问于2014-03-31得票数 0
回答已采纳
2回答
原始代码
ActiveChart.SetSourceData Source:=Range("Sheet2!$A$1:$A$12,Sheet2!$C$1:$C$12")
在这段代码中，我希望我的范围选择是动态的，我尝试了下面的代码，它给出了$A$1:$A$12
Range(Range("a1"), Range("a1").End(xlDown)).Address
我试着在原始代码中替换它，但不起作用，
ActiveChart.SetSourceData Source:=Range(""Sheet2"&"!&#
浏览 2提问于2020-09-17得票数 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
我正在创建一个有17个工作表的工作簿，每个工作表都有一个产品列表，每个月都会发生变化。如果产品有错误，它会在值中显示为CMB，但该产品仍然存在。我要删除产品行。此代码在逐张工作表的基础上工作，但一旦我尝试循环它，它就不能工作。
Sub wsLoop()
Dim ws as Worksheet
For Each ws In Worksheets
'Seeing if there are new products added to list
countcells = Range(Range("F8").End(xlDown).Offset(, -4), Range("
浏览 0提问于2016-01-12得票数 1
我正在尝试从一个工作簿复制材料，然后将其粘贴到另一个工作簿中的下一个打开的单元格中。
我尝试过使用xlDown，但当工作表为空时出现运行时错误，因为没有要导航到底部的非空单元格的使用范围。因此，我设置了一个If Else语句来确定单元格A1是否为空。如果A1为空，请选择它，否则使用xlDown到达最后一个单元格。
Range("a1").Activate
If IsEmpty("A1") = True Then
currentCell.Select
Else
Range("A1").End(xlDo
浏览 5提问于2019-07-31得票数 0
出现此代码的对象错误范围(错误1004)。你能帮我调试一下吗？
Sub ggg()
last = Sheet1.Cells(1, 1).End(xlDown).Row
last1 = Sheet2.Cells(1, 1).End(xlDown).Row
Sheet1.Range(Cells(1, 1), Cells(last, 2)).Copy Sheet2.Range(last1 + 1, 1)
End Sub
浏览 1提问于2017-04-25得票数 0
问题：我的工作簿中有关于Sheet2和Sheet3的数据。它们在列A和B中有相同的属性位置，但是它们旁边的列中的数据是不同的，所以我定义了不同的范围。根据我要填充的报表选项卡，我需要引用Sheet2.Range(命名范围)或Sheet3.Range(命名范围)的代码，但是我会得到错误。它总是从Sheet1中选择数据或者给我带来错误。在定义命名范围时，我尝试使用With End for入住率选项卡部分，以指示应该使用Sheet2的范围，但这不起作用。当我移动到下面的“占用率标签复制和粘贴”部分时，我也尝试过激活Sheet2，但这也不起作用。帮助!
当前我的代码：
`Dim Pltf As Ran
浏览 0提问于2017-01-17得票数 0
希望你能帮助我，我只知道基础知识，并试图看到有一种简单的方法来重复一个过程中的vba比重新键入。
基本上，我需要将数据从多个文件复制到一个文件中。我要复制的文件都在不同的子文件夹中。
这是我所拥有的，但正如你所看到的，我只是复制代码并更改文件位置来完成任务，这是可行的，但只是想知道是否更容易的方式，因为有多个文件在不同的位置。
Sub Disconnections()
'
' Disconnections Macro
'
SheetName = Format(Date, "dd-mm-yyyy")
On Error GoTo AddNew
Sheets
浏览 0提问于2017-01-24得票数 0
3回答
我试图写一些代码来识别一行中的一个值，剪切整行，然后将该行插入到行2(并将行向下移动)，但我得到了一个运行时错误1004，说明复制和粘贴区域必须相同大小。有人能帮上忙吗？代码如下：
With Sheets("xxx")
For Lrow = 1 To ActiveSheet.UsedRange.Rows.Count
With .Cells(Lrow, "J")
If Not IsError(.Value) Then
If .Value = "Desk
浏览 0提问于2015-10-09得票数 1
2回答
我有一行代码来设置范围的引用：
Dim rCheck As Range
Dim lRow As Long
lRow = Worksheets("Sales").Range("salesHeader").Row + 1
Set rCheck = Range(Cells(lRow, 1), Cells(lRow, 3)).End(xlDown)
这是没有错误的。不过，我希望将此引用设置为特定工作表、Sheet2或"Sales“上的范围。当我添加工作表对象时，我会得到错误，如下所示。
Set rCheck = Worksheets("Sales"
浏览 0提问于2014-09-26得票数 0
回答已采纳
出现一个输入框，用于输入项目名称，例如"Test Item“。然后出现另一个输入框，输入成本，例如"13.2“。该代码用于查找B列中的第一个空单元格并输入项目，然后向右偏移一列并输入成本。
我收到运行时错误'424'：对象需要在
ActiveCell.Offset(1，0).Select.FormulaR1C1 =项目
Sub AddSWItem()
Dim Item As String
Dim Cost As String
Item = InputBox("Item")
Cost = Inp
浏览 4提问于2014-06-24得票数 0
1回答
我正在尝试用下面的代码删除重复的行： Sub removeDuplicates()
'
' Macro7 Macro
'Workbooks("Tester.xlsm").Worksheets(1).Range("A1", Range("F1").End(xlDown)).removeDuplicates Columns:=Array(1, 2), Header:=xlYes
Set Rng = Range("A1", Range("F1").End(xlDown))
Wo
浏览 15提问于2020-06-10得票数 0
回答已采纳
1回答
我正在尝试为工作表“Report”中的单元格E8分配一个具有动态范围的索引匹配公式。范围来自工作表“Data”
我找到了最后一行(LR)和最后一列(lc)。运行时错误出现在最后一行: Cell("E8").formula = "=....“
代码如下：
Sub report()
Dim LR As Long, lc As Long, first As Long, proxy As String
Sheets("Data").Select
'Finding the first filled cell by moving
浏览 0提问于2016-03-22得票数 1
我试图根据第三列中的值将多个列从一个workbook复制到另一个列中。为此，我尝试了多种格式，将对象声明为range或variant，将选定的范围设置为.value或.select。总之，这导致运行时错误438、424、91和13。
最近的一次迭代产生了'Runtime 438: Object不支持这个属性或方法‘。
Sub Fetch()
Dim Group As String
Dim gPath As String
Dim BUname As String
Dim PMAname As String
Dim Backup As Workboo
浏览 3提问于2017-07-07得票数 1
回答已采纳
我正在尝试连接给定行(例如C3:F3)中的单元格的值，在同一行(在同一工作表上)中，转到连接的单元格(例如B3)左侧的第一个空单元格，并输入连接的值。下面的代码第一次可以工作，但是当下面的代码行运行ws.Range("B3").End(xlDown).Offset(1, 0).Value = varConctnt时，我仍然得到运行时错误1004，也就是说，选择了下一行中的下一组单元格(比如C4:F4)，并且我想在单元格B4中输入连接的值。我已经尽了最大努力声明对象来绕过这个问题，但错误一直出现。 提前谢谢。 Sub ConcatenateReal2()
Dim rng As
浏览 17提问于2019-03-17得票数 1
回答已采纳
1回答
我需要查找其中包含短语“Total”的每一行，在该行的上方和下方插入行，在该行及其周围设置其他单元格的格式，从单元格中删除短语“Total”，然后对报表中的所有其他行重复此过程。
我开发的宏，一旦找到并替换了“Total”的所有实例，我就会得到运行时错误'91'：Object variable or With block variable not set。
我希望在不出现错误的情况下完成循环，因为这必须在多个工作表上执行。下面是代码的要点：
'EmployerSummariesAddedForRegionsOnTabs Macro
Dim FoundCell As Ra
浏览 0提问于2014-04-24得票数 1
0回答
我正在尝试复制并粘贴一个工作表中的动态范围。我可以复制我的数据，但它不会粘贴，出现“运行时错误1004:对象‘_Global’的方法'Range‘失败”
代码如下：
Range("A19:B" & Range("A19").End(xlDown).Row).Copy
Range("O19:P").PasteSpecial (xlPasteValues)
有人能帮我解决这个问题吗？
浏览 5提问于2017-06-09得票数 0
回答已采纳
我需要将一个列表从C列复制到第0列，该列表在整个列中都有空格，以删除空格。我需要在表示月份的多个工作表(1月、2月、3月、4月...)上执行此操作。我遇到的问题是它使用: ActiveWorkbook.Worksheets("Jan")，所以如果我做一个do循环来获取其他月份(Feb，Mar...)那它就不会起作用。
本质上，我试图获得的是每个月C列中所有姓名的主列表，用于摘要选项卡，其中列出了各个月份的所有姓名。根据我运行此命令的月份，该文件将只包含已发生月份的工作表。
下面是我的代码：
'First Tab
Columns("C:C").
浏览 0提问于2018-08-07得票数 0
嗨，我是来自Vijayawada的Uma Mahesh，我正在尝试创建一个Employee UserForm。 因为我试图通过选择国家来加载国家移动代码。 我创建了一个包含三个工作表的Excel工作簿，名为% 1。原始数据，% 2。主页，% 3。已填充数据 我在原始数据中加载了带有手机代码的国家/地区名称，并将其隐藏起来，我希望在主页或已填写的数据表中填写数据 现在我在Home Sheet中尝试填充数据，但它显示运行时错误，但当我在Raw data Sheet中尝试填充数据时，没有出现错误。 如何解决？ 有没有人回应？？ 以下是我的代码 Dim CC2 As Long, i as Long
浏览 9提问于2021-04-22得票数 0
2回答
我使用vba尝试并清除从第10行到最后使用的行的列。
我遇到的问题是，我的一些价值观中有这样的差距：
1
2
3
5
6
7
8
9
这是我的代码：
Sub Clear2()
ActiveSheet.EnableCalculation = False
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
With Sheets(1)
.Range(&#
浏览 4提问于2017-01-16得票数 1
回答已采纳
1回答
当我运行下面的代码时，我得到了运行时错误。
Sub em()
Dim strlogin As String
Dim strnextlogin As String
For i = 2 To Range("A1").End(xlDown).Row
strlogin = Sheets("Untitled").cell(i, 1)
strnextlogin = Sheets("Untitled").cell(i + 1, 1)
If (strlogin = strnextlogin
浏览 3提问于2016-09-25得票数 2
嗨，我需要一些帮助。我想选择单元格的列，只提取唯一的值，并将所有结果缩小为一列。代码工作正常，除了我希望将其粘贴到我选择的原始单元格的部分。我已经尝试设置cell = activecell。但是当我返回到它的时候，我一直收到错误，因为所有的代码最后都写着“range类的运行时错误1004Cut方法失败了”。谢谢，我真的很感谢你对我的帮助。 Sub Super_PasteInto1Col()
'
' Macro3 Macro
'
' Keyboard Shortcut: Ctrl+m
'
Dim i As Integer
Dim icolumns A
浏览 11提问于2021-01-01得票数 0
我正在尝试将MaxWB中的数据附加到MasterWB中的数据的底部。
我可以复制日期，打开下一个文件，但当我尝试查找最后一行并添加一行或一行偏移1时，我的代码出现错误。
我相信我的粘贴特效也有一个错误，但我可以通过偏移来测试。
我对VBA非常陌生，但我喜欢它！以下是我的代码：
Sub Append()
Dim MaxWB As Workbook
Dim MasterWB As Workbook
Dim path As String
Dim Filename As String
Dim Lastrow As Long
Dim Rng As Range
Set MaxWB = Acti
浏览 0提问于2018-12-09得票数 0
2回答
有没有人能提示一下我可能做错了什么？现在，我实际上是在尝试使用Ctrl-A命令对vba中的数据块执行全选操作。然后，我希望将该选择另存为范围，以便以后使用它。
Dim rngAdData As Range
.....
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Set rngAdData = Selection
Range(rngAdData).AdvancedFilter Action:=
浏览 0提问于2013-03-01得票数 2
回答已采纳
由于某些原因，当我尝试运行以下脚本时，不断收到范围全局运行时错误。任何帮助都将不胜感激。
Sub crossUpdate()
Dim rng As Range
Set rng = Sheet1.Cells.Range("A2").End(xlDown)
Range(rng).Select
End Sub
浏览 2提问于2014-09-25得票数 0
当我试图运行这段代码时，我得到了“运行时错误'91'：对象变量或块变量未设置”。错误出现在第8行。在“局部变量”窗口中，我看到：
表达式:值:类型
LR :0:0
I:0:0
ws : Nothing :工作表
因此，我认为这不是选择工作表，但我可能离这里很远。我对VBA脚本还是很陌生的，所以任何帮助都会很感激！
Sub ConditionalFormat()
Dim LR As Long, i As Long
Dim ws As Worksheet
With Sheets("Overall Stats").Select
浏览 1提问于2018-05-23得票数 0
回答已采纳
我尝试从工作表1 (A1:C1)复制并粘贴一个带有offset和xlDown的特殊值到工作表2，并将各自的结果放入范围(B3:D3)。
图1
表4-(所需输出)
我得到一个运行时错误'1004‘应用程序定义或对象定义的错误。
Sub test()
Workbooks("testing.xlsm").Activate
Sheet1.Select
Range("A1:C1").Copy
Sheet2.Select
Range("B3").End(xlDown).Offset(1, 0).Select
Selection.Pas
浏览 0提问于2020-12-17得票数 0
1回答
我有一个命令按钮，它为我做了很多计算。要制作用户界面，我需要将按钮从“计算”表移动到“用户界面”工作表。移动按钮后，我需要将输入和输出处理到“计算”表中。我使用with语句如下：
With Sheets("Calculation")
.Range("C3", Range("C3").End(xlDown)).Clear
.Range("X3", Range("X3").End(xlDown)).Clear
.Range("Y3", Range("Y3").
浏览 4提问于2016-06-02得票数 0
回答已采纳
我试图复制从"Sheet1“的第2行开始的A列，并将其粘贴到从第5行开始的工作表"ABC”的C列中。A列中的行数是可变的，因此不能使用固定范围。
下面的代码可以满足我的需要，但我试图避免使用.Select和.Activate。
LastRow = Range("A" & Rows.Count).End(xlUp).Row
Sheets("Sheet1").Range("A2:A" & LastRow).Copy
Sheets("ABC").Activate
Sheets("ABC")
浏览 3提问于2016-10-17得票数 1
回答已采纳
使用Access VBA，我将从Excel文件中获得一些数据，以移动到Access表。
我得到了
应用程序定义或对象定义错误
在这一行代码中：
For Each c1 In mSheet.Range(mSheet.Range("F4"), mSheet.Range("F4").End(xlDown)).Cells
这个问题肯定是由.End(xlDown)引起的:我已经尝试删除了.End(xlDown)，并且它可以工作。
作为另一种选择，我使用了其他代码，但是没有什么改变：
Dim mRow As Integer
mRow = mSheet.Cells.S
浏览 1提问于2018-11-05得票数 0
回答已采纳
1回答
我写了一个代码=
Worksheets("Sheet1").range("A" & ":E").Copy Destination:=Sheets("Sheet2").range("A1").
此代码帮助我将Sheet1中的内容(在A到E列中)复制到另一个Sheet2。它被复制到A1中。但是，代码复制了A到E列中的所有内容。在特定行下面有一些我不想要的内容。我已经应用了End(xlDown).Row代码，如下所示：
Worksheets("Sheet1").range("A"
浏览 0提问于2014-05-07得票数 0
1回答
我试图运行这个VBA代码，但是总是收到一个运行时错误'1004‘消息
Dim clLookup As Range
Dim clDest As Range
Dim rws As Long
With wbk2.Sheets("SOA")
Set clDest = .Range("J2")
Set clLookup = .Range("G2")
End With
If clLookup.Offset(1, 0) <> vbNullString Then
rws = Range(clLookup, clLookup.End(xlD
浏览 4提问于2014-11-13得票数 0
回答已采纳
1回答
我正在尝试编写一个简单的z-test，但我的代码在使用以下代码计算Z-score时出现错误：Z = (P1 - P2) / SD;有人知道为什么吗？出现的错误是溢出(错误6)
下面是完整的代码：
Sub ChiSquare()
Total_Groep_1 = Application.Sum(Range("C4", Range("C4").End(xlDown)))
Total_Groep_2 = Application.Sum(Range("E4", Range("E4").End(xlDown)))
浏览 2提问于2016-04-25得票数 0
1回答
我正在尝试对Excel工作簿中的所有工作表运行宏。我有下面的代码，但我得到一个运行时错误'1004'：对象‘_Global’的方法'Union‘失败。
我已经查找了错误，并试图从下面的建议中“进入工具/选项并选择需要变量声明的选项”，但它不起作用。
下面是我的VBA代码，它将遍历整个工作表。
Sub Bagasse_YG_Update()
Dim rng As Range, column As Long, row As Long
Dim WS_Count As Integer
Dim I As Integer
' S
浏览 65提问于2018-08-30得票数 0
回答已采纳
在Excel中运行以下代码时出现错误2147467259 (80004005
Private Sub Button1Query_Click()
Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim iCounter As Integer
Dim Response
Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
With OutLookMailItem
浏览 19提问于2015-08-27得票数 0
2回答
我正在迭代列(B到E)，并试图从每一列获得不同工作簿中的单元格的唯一值。迭代只发生一次，不会重复(当x=3)，我得到运行时错误1004:应用程序定义的或对象定义的错误
Dim LastCellRow As Integer
Dim inputRng As Range
Dim rng As Range
LastCellRow = Workbooks(MainFile).Sheets(1).Range("N3").End(xlDown).Row
For x=2 To 5
wkbTemp.Worksheets("Specific").Range(Cells(
浏览 3提问于2015-07-10得票数 0
回答已采纳
在sheets("Cost")中，下面的代码中有一个错误注释。一旦错误被解决，我计划放置一个'c(x)‘计数器来遍历每个图表
运行时错误'1004'：对象'_Worksheet‘的方法'Range’失败
我认为这个错误与我引用另一个工作表的方式有关
Dim p As Worksheet, cost As Worksheet
Set cost = Workbooks("dashboard.xlsm").Worksheets("Cost")
Set p = Workbooks("dashboard.xl
浏览 0提问于2017-07-12得票数 2
2回答
我在ThisWorkBook下编写了一个VBA-代码，这样当我打开Excel文件时，代码就会自动运行。代码使用xlDown选择一个动态范围，然后根据所选内容向工作簿添加一个名称。检查下面的代码：
Private Sub Workbook_Open()
Sheets("sheet1").Range("E2", Sheets("sheet1").Range("E2").End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="DateList", Ref
浏览 3提问于2016-02-09得票数 1
回答已采纳
如何使用VBA将数据从一个文件复制到另一个文件？当我运行这段代码时，我得到一个错误-“运行时错误'1004‘：应用程序定义或对象定义的错误”。我正在使用Excel 2010
Sub nextfile()
Range("B5").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Windows("MAIN Pivot Table.xlsx
浏览 1提问于2014-01-09得票数 0
我是VBA的新手，现在有点挣扎。我需要在第2页的Q列中搜索包含“text”的单元格，然后将单元格中的数据复制到右边，然后将该值粘贴到sheet1上B列的下一个空白单元格中。我一直在尝试使用IF代码来完成这个任务，但是一直都会出现错误。这看起来很简单，但还在挣扎，有人能给我建议吗？当使用.end(XLup)时，我需要在第4周旁边发布结果，代码运行，但是在46下面发布结果。当切换到XLdown从顶部运行时，我会得到一个错误。
Sub question68784119()
Const SED As String = "tokyo" 'the text you&#
浏览 0提问于2021-08-14得票数 0
回答已采纳
5回答
我正在编写一个工作簿，在该工作簿中，我需要计算"St/“子字符串在范围中出现的次数(Q列)。注意:我感兴趣的是所有的事件，而不仅仅是子字符串存在的单元格的数量。
下面是我尝试使用的代码(基于Santhosh 的注释)，但是在运行它时我会收到一个运行时错误(13)。我错过了什么/做错了什么？
Dim lastrow, q as Integer
lastrow = Range("A1").End(xlToRight).End(xlDown).Row
With Application
q = .SumProduct((Len(Range("Q1:Q" &
浏览 0提问于2021-07-12得票数 1
回答已采纳
1回答
我在excel中找到了一个用于选择下一个空行的片段，但是当我运行这个宏时，它会告诉我它抛出了一个运行时错误1004。知道为什么吗？
Sub CopyValues()
Sheets("Report").Select
Range("B4:D10").Select
Selection.Copy
Sheets("Data").Select
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
End Sub
是的，工作表的名字是正确的。Range("A1&#
浏览 7提问于2014-04-16得票数 1
回答已采纳
我试图根据可以是任何内容的列打印出某一行，我试图使用这样的方法：
'Gets me the Title(Top of Column) of whatever cell was changed
If Worksheets("Testing Sheet").Range("A2").Value = "" Then
Worksheets("Testing Sheet").Range("A2").Value = Range(Target.Column & ("7"))
浏览 2提问于2014-08-06得票数 0
回答已采纳
嘿，我正在尝试通过宏从每月拉取的数据中更新这个图表，但在它工作过一次后一直遇到问题。语法错误？
With Sheets("data").ChartObjects("Chart 3")
.SeriesCollection(1).XValues = ActiveSheet.Range(Range("b55"), Range("b55").End(xlDown))
.SeriesCollection(1).Values = Range(Range("u55"), Range("u55").
浏览 1提问于2017-07-07得票数 0
回答已采纳
当我在for循环中选择一个范围时，它工作得很好：
For Each d1 In Range(Range("B2"), Range("B2").End(xlDown))
为了提高代码的性能，我尝试在For Each循环之外选择range，如下所示。但它给了我错误。
Dim StartCell As Variant
Dim EndCell As Variant
StartCell = Range("B2")
EndCell = Range("B2").End(xlDown)
For Each d1 In Range(StartCe
浏览 0提问于2016-11-09得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
云直播活动推荐
腾讯云开发者
