尝试对表进行排序时，对象'_Worksheet‘的方法'Range’失败
当尝试对表进行排序时，对象'_Worksheet'的方法'Range'失败，可能是由于以下原因之一：
- 表格对象（Worksheet）不存在：请确保你正在尝试对存在的表格进行排序。你可以通过检查表格的名称或索引来确认表格是否存在。
- 范围对象（Range）无效：请确保你正在使用有效的范围对象进行排序。范围对象可以是单个单元格、一列或一行的范围，或者是整个表格的范围。你可以通过指定范围的起始单元格和结束单元格来创建范围对象。
- 排序方法错误：请确保你正在使用正确的排序方法。根据你的需求，可以使用升序排序（从小到大）或降序排序（从大到小）。你可以使用内置的排序函数或方法来执行排序操作。
- 权限问题：请确保你具有足够的权限来对表格进行排序。如果你是在一个受限制的环境中工作，可能需要获取相应的权限才能执行排序操作。
针对这个问题，腾讯云提供了一系列的云计算产品和服务，可以帮助你解决表格排序的需求。其中，腾讯云的云数据库 TencentDB 可以存储和管理大量的数据，并提供了强大的排序功能。你可以使用 TencentDB 的 SQL 语句来对表格进行排序操作。具体的产品介绍和文档可以在腾讯云官网找到：
腾讯云云数据库 TencentDB：https://cloud.tencent.com/product/cdb
此外，腾讯云还提供了其他与云计算相关的产品和服务，如云服务器、云存储、人工智能等，可以满足你在云计算领域的各种需求。你可以在腾讯云官网上查找更多相关产品和文档。
请注意，以上答案仅供参考，具体解决方法可能因具体情况而异。建议在遇到具体问题时，参考相关文档或咨询专业人士以获得准确的解决方案。
相关·内容
1回答
我在Excel里有一张桌子。现在是两列，大约有50行。我想清除VBA中的内容(我已经设置了一个宏，可以顺利地运行并填充表)。我希望它是一行，而不是2列和50行。我需要哪些代码行?我是VBA的新手。
谢谢您:)
我试过了
Dim sTableName As String
Dim sSheetName As String
sSheetName = "VBAMacro"
sTableName = "ProductSale_Table"
Sheets(sSheetName).ListObjects(sTableName).Delete
但这只是删除了内容。我需要弄清楚如
浏览 2提问于2022-11-11得票数 0
我尝试过使用openpyxl，但是当我保存文件()时，它似乎失败了，我找不到关于这个问题的任何信息。
还有其他模块可以让您在保留原始文件的样式和格式的同时读取、编辑和保存.xlsx文件吗？
浏览 2提问于2015-08-05得票数 0
回答已采纳
2回答
我已经建立了一个宏，可以根据一定的标准将一排排信息转移到新的表单中。
所有这些都能工作，但是最后一个需要提取任何“包含”文本的内容。
这是我写的，但不管用。帮助?
当前代码：
Dim r As Range
Dim i As Integer
Dim Source As Worksheet
Dim Target As Worksheet
Set Source = ActiveWorkbook.Worksheets("Sheet1")
Set Target = ActiveWorkbook.Worksheets("Sheet2")
i = 2
For Each r I
浏览 3提问于2019-03-04得票数 0
回答已采纳
我觉得这应该是一个很简单的任务，但我在Excel方面的经验还不足以了解如何处理它。基本上，我想一排排地看两个单元格，如果它们都有特定的日期，就做一些事情。这两个单元格将始终位于两个特定列中的一个。
例如，如果D2和I2中的日期都早于11月，那么我想对该行执行一些操作并移到下一行。然后，如果D3和I3中的日期都早于11月，那么我想对该行执行一些操作并移到下一行。等等等等..。
我的问题不在于怎么做所有的步骤。这真的是关于如何做这个比较。我知道如何通过执行以下操作来选择这两列中的单元格：
Union(Range(Cells(2, 4), Cells(Rows.Count, 4).End(xlUp)
浏览 3提问于2012-12-08得票数 0
回答已采纳
还有关于同一件事的其他帖子，但我无法让它与我的变量一起工作。
我有两列使用IF语句IF(Asus!C:C=TODAY(),"Promo Today","")的数据。
我想检测一个单元格何时变成“今日促销”，并发送一封电子邮件给收件人。据我所知，电子邮件地址必须在一个单元格中定义。我试着把它写进密码里。
正如我在代码中试图针对的那样，列2和3是IF语句所在的列。我也要瞄准一排吗？
Private Sub Worksheet_Change()
Dim sEmailBodyp1 As String
Dim sEmailSubject As String
Dim sEm
浏览 1提问于2019-04-18得票数 2
回答已采纳
1回答
当用户更改单元格颜色时，我试图按颜色对表进行自动排序。
我只想要一个列，所以我把它放在Worksheet_Change下面
Private Sub Worksheet_Change(ByVal Target As Range)
Set taskPriorityTable = ActiveSheet.ListObjects("TaskPrioritiesTable")
Set priorityRange = ActiveSheet.ListObjects("TaskPrioritiesTable[PRIORITY]")
If Target.Co
浏览 5提问于2020-07-19得票数 0
回答已采纳
2回答
我有一个Excel文件，我需要从一个列复制数据。但我不知道有多少排。
using Excel = Microsoft.Office.Interop.Excel;
Excel.Application xlApp = new Excel.Application();
Excel.Workbook _workBook = xlApp.Workbooks;
Excel.Worksheet _workSheet = (Excel.Worksheet) _workBook.Worksheets[1];
如何复制数据？
浏览 1提问于2015-02-21得票数 0
回答已采纳
我有一个有两行的报告，第一排是“项目”，第二排是“重量”。
“权重”将计算出来，如果总摘要超过100 %，Excel将显示警告框。
你们能帮我找到一种用Excel制作它的方法吗？
这是我之前使用的脚本：
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Me.Range("A2:B10")
If Target.Value > 100 Then
MsgBox "You exceeded 100"
End If
End Sub
浏览 2提问于2019-03-08得票数 0
1回答
我正在使用VBA中的ListObject对象。特别是，我动态地创建了一个表(可变的行数和列数，以及可变的列标题)。我需要对表的列按升序排序进行排序。
例如，如果我有一张桌子：
我想要像这样分类，
有办法这样做吗？我尝试过使用Range.Sort方法，但是如果范围是ListObject的一部分，这似乎是不允许的。
我还试图记录一个宏来查找代码，但是当我右击表对其进行排序时，所选的范围使标题退出，并且我无法选择“从左到右排序”选项.
有什么想法吗？
浏览 3提问于2015-08-14得票数 0
回答已采纳
3回答
当我试图粘贴到我当前的工作簿(下面的最后一行代码)时，我得到了一个438错误-‘对象不支持这个属性或方法’。我知道当我引用两个不同的工作簿(即使用workbook.open设置两个工作簿)时，代码可以工作，但当我尝试使用ThisWorkbook引用我自己的工作簿时，代码就失败了。有什么想法吗？不幸的是，我在论坛的其他地方找不到解决方案。谢谢。
Dim Data As Workbook
FName = Application.GetOpenFilename
Set Data = Workbooks.Open(FName)
Data.ActiveSheet.Range("A5"
浏览 1提问于2018-05-08得票数 2
3回答
这个问题把我完全弄糊涂了。
我有一个Excel文档，可以很好地加载。它有行、列和数据，我想遍历这些行。但是EPPLus很奇怪。
我坐第二排：
ExcelRange range1 = worksheet.Cells[2, worksheet.Dimension.Start.Column, 2, worksheet.Dimension.End.Column];
这给我带来了{A2:D2}的辉煌！到目前为止还不错，但是我想要行的第一个单元格：
ExcelRange range2 = range1[1,1];
这给了我{A1}，更糟糕的是，range1的值也变成了{A1}，而不是我选择的行。
如何解决
浏览 22提问于2016-08-19得票数 9
回答已采纳
3回答
我有一个用于采购订单的Excel '07模板文件。在模板上，只有3行物品的空间，然后模板显示总计。
所以，基本上，在模板中它有:第19行-第20行-第21行-第22行-项目总数
显然，大多数购买将有3个以上的项目，尽管。那么，在打印出3项后，如何在21到22之间插入一行呢？
编辑；下面是我拥有的内容：
xlApp.Workbooks.Open(template, misValue, misValue, misValue,
misValue, misValue, misValue, misValue, misValue, misV
浏览 11提问于2012-11-16得票数 5
1回答
我有一张母版，里面有一排排的房屋地址数据，其中一列是"State“列。我在同一份文件中还有50张其他纸张，对应于美国50个州中的每个州。我想要发生的事情:当我在主表中输入一个地址并输入一个州(例如"CA“或"California")时，我希望它能够自动地用该地址填充"CA”工作表。谢谢!
浏览 2提问于2010-06-14得票数 1
1回答
我用vba编写了一个脚本来刮掉一些名字，这些名字是从网页开始搜索时填充的。下面的脚本以Sheet2形式从Sheet2中获取来自column B的输入，并在有关行的旁边用column B编写结果。如果我尝试这样做的话，脚本将完美地写出结果：
Sheets("Sheet2").Cells(R + 1, 2) = post.innerText
或
cel(1, 2) = post.innerText
但是当我尝试这样做时，它会抛出一个错误(object doesn't support this property or method)：
Sheets("Sheet2&#
浏览 1提问于2018-08-27得票数 0
回答已采纳
1回答
我正在尝试编写一个系统，在该系统中，我从一组由用户生成标题的工作表中选择数据。然后将创建的工作表的标题存储为字符串。是否有使用这些字符串打开/引用工作表的方法？
我的代码如下所示
Dim Title As String
Dim Sheet_title As Worksheet
Sheets("Config").Select
Sheets("config").range("C25").Select
Title = ActiveCell.Value
Debug.Print Title
Sheet_titl
浏览 2提问于2022-11-29得票数 1
2回答
我正在使用Office2003文档(.xls)处理VS2008 .NET3.5。我正在使用Microsoft.Office.Interop.Excel访问一个文档。
这对我的目的很有效，但每当我尝试约会时都会失败。
我使用的方式是最常见的：
object date= xlWorkSheet.get_Range("E" + i, "E" + i).Value2;
double doubleDate = double.Parse(date);
DateTime finallyDate = DateTime.FromOADate(doubleDate);
我存储的日期
浏览 14提问于2012-08-30得票数 1
回答已采纳
2回答
我对sql很陌生。我试着从两个表中简单地减去两列。例如：
Table1 = id, amount, value
Table2 = id, amount
怎样才能用金额2减去金额1，而不必在每一栏中添加总数。因为我想一排排地看它。这是我迄今尝试过的，但仍然失败。
"SELECT ( SELECT amount FROM table1 ) - ( SELECT amount FROM table2 ) AS difference"
顺便问一下，sql是否可以自动生成表或额外的列来查看减法的差异/结果？
谢谢
浏览 0提问于2018-04-13得票数 1
回答已采纳
我有一个导出到工作表按钮，但我不能让它正常工作。我选择了要复制的正确单元格，但无法将它们转置到出现在单元格A1的下拉框中的选定工作表上，然后我还需要将其粘贴到该特定工作表中的下一个可用行上。问题是，当下拉框中的列表发生变化时，我不能只在VBA中列出图纸。我已经尝试了几种方法，但都没有成功。如果有人能帮上忙那就太好了
Sub Button2_Click()
Worksheets("Sheet1").Range("a2:x2").Copy
ActiveSheet.Paste Destination:=Worksheets("Sheet1!A
浏览 45提问于2019-05-22得票数 0
我的工作表有许多表格。我需要特别操控一个。当然，我可以简单地查看它的单元格编号并逐个单元格地操作它，但是有没有什么"get“函数可以编程”获取“这个表呢？
如果是这样，我该如何操作这些细胞呢？有没有一个命令可以“获取”整个标题，或者是整个列的标题(而不是其列号)/
如果有人知道有一个指南可以解释这一点，那就足够了。我试着用谷歌搜索它，但所有的结果都是关于数据库表的，比如从数据库中填充电子表格。
浏览 8提问于2012-03-20得票数 4
我试图将MS Access (2013)查询中的多个查询导出到Excel (2013)中的多个工作表工作簿中。出口过程是没有问题的。此问题是在导出后格式化工作表。对于每个工作表(5)，我需要：
冻结顶排
用黄色背景填写顶部一行
应用“过滤器和排序”..。
每个报表导出都有自己的“部分”，因此，我只粘贴一个部分。当代码的格式化部分开始时，我通常会收到诸如运行时错误之类的错误：
‘9’：下标超出范围
对象'_Global‘的'1004’方法‘范围’失败。
这些错误从来都不是一致的。代码如下：
Private Sub cmdGeneralReportWit
浏览 1提问于2017-06-14得票数 1
回答已采纳
1回答
Sheets("DATA").Rows(2).Find(What:="Apple", LookIn:=xlValues, _
LookAt:=xlWhole).Offset(1, 0).Value = "=A3-B3"
Selection.FillDown
我想在第二排找到一列“苹果”，并填上公式"A3-B3“。
像.value="=A3-B3".filldown这样的东西有用吗？
谢谢!
浏览 2提问于2013-09-16得票数 1
回答已采纳
尝试过滤，然后在循环中复制筛选过的单元格，得到“粘贴工作表类方法失败”的错误消息。
它似乎失败了，因为我使用循环，我尝试过其他方法粘贴特殊，但这似乎不起作用，请帮助
Sub Split()
Dim wsYes As Worksheet
Set wsYes = Worksheets("YES")
With wsYes
Dim myRange As Range
Set myRange = .Range("A2", .Range("A2").End(xlDown))
myRange.Copy .Cells(1, .Col
浏览 6提问于2016-07-26得票数 0
回答已采纳
1回答
在Excel中复制大量数据
、、、、
我有一个电子表格，里面有大约90本格式相同的工作簿。我需要复制和粘贴大约336个独立公式位于一排从一个完整的工作表到所有其他工作表。不幸的是，这最终是30k左右的细胞，需要立即复制和粘贴。除了拆分和手工操作之外，还有其他解决办法吗？
任何帮助都是必要的。谢谢。
浏览 2提问于2013-09-29得票数 0
回答已采纳
1回答
假设我有两个表，其中第1页上有这类数据(同一行中不同长度的信息)：
这可能是大量的文本，是“包装”，以适应一排(体面)
但是，当我试图引用相同的文本，或者尝试使用一些公式(例如索引/匹配)来获得相同的文本时，我无法得到正确的行Height...so --我必须手动调整表2行，以便从高处很好地适应……
Excel中是否有自动进行这些行展开的方法？每次都不用手动操作，因为我不知道这是我的原稿多久.
浏览 6提问于2021-05-07得票数 0
大家好，我是VBA和StackOverflow的新手。目前，我正在尝试使用VBA创建一个过程来汇总我的数据，上面的照片是我面临问题的漫长的宏观过程的一部分。collected.The。我需要找到列"A“中唯一位置的数量(可以随着时间的推移添加新位置)，然后将唯一位置输出到列"J”中的位置列中。之后，在"K“列中，我将需要计算每个唯一排名的数量。
到目前为止，我有以下代码来查找一个职位。
Sub test ()
Dim Manager as Integer
Sheets("Sheet1").Select
Manager = Application
浏览 0提问于2017-06-07得票数 0
1回答
我有这样的VBA代码，如果特定列中的单元格不是空的，则将所有行复制到不同的工作表中。
这是我的代码：
With ws
For Each Cell In .Range("A2:A" & ws.Cells(.Rows.Count, "A").End(xlUp).Row)
If Not IsEmpty(ws.Cells(Cell.Row, "P")) Then
ws.Rows(Cell.Row).Copy Destination:=ws4.Rows(Cell.Row)
End
浏览 8提问于2022-05-20得票数 1
我正在尝试编写一个公式，它执行以下操作:将以上的所有行加到第3行。(第1行和第2行是标题)。这段代码必须来自E:AQ列，对我来说更棘手的是，最后一行的行按月变化。这个月是第133排，下个月可能是145。到目前为止，我的代码如下：
Sub Fsum()
Dim Rng1 As Range
Set ws1 = Worksheets("Actuals")
Set Rng1 = ws1.Range("A" & ws1.Rows.Count).End(x1Up)
.Range("Rng1:AQ").Formula = "=sum(???li
浏览 8提问于2017-08-07得票数 0
回答已采纳
最近，我从Access VBA代码中得到了这种奇怪的行为，我不知道为什么会发生这个错误。
我正在尝试将数据从数据库导出到Excel文件。我操作一些单元格和范围(主要是插入信息，但有时合并单元格、插入新行等等)，但是，我一直收到以下错误：
1004应用程序定义或对象定义错误
在这条线上：
xlApp.Cells(currentRowPointer, 8) = rs_vendorNPO("Vendor_Name")
现在，这行被称为数十次，因为我正在循环多个记录集，这一行在循环中。当currentRowPointer = 91持续失败时，它就会失败。因此，要查看当current
浏览 1提问于2020-12-03得票数 0
我正在尝试将VBA应用到包含多个工作表的工作簿中，其中sheetnames是可变的，但失败了。
我的代码只在活动工作表上工作。
能帮我看看有什么问题吗？
Sub sample_code()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
Range("A1").Value = "test each worksheet"
End With
Next ws
End Sub
浏览 3提问于2018-03-29得票数 0
回答已采纳
我知道有人问过类似的问题，但我已经读过了，我仍然不知道出了什么问题。我有一本工作簿，里面有四个工作表。
下面的Sub只是创建一个特定格式化文档的过程的开始，所以还有更多的东西要来，但是它在第一份拷贝时就失败了。我尝试将变量输出和reqSheet替换为Worksheets("Requests")和Worksheets("Output")，但仍然引发相同的错误。
有人能解释一下我做错了什么吗？
Sub generateOutput(requests As Integer)
Dim i As Integer
Dim output As Excel.Worksheet
浏览 1提问于2014-12-19得票数 1
回答已采纳
1回答
colname = Split(Cells(, i).Address, "$")(1)
Lastrow = .Cells(.Rows.Count, colname).End(xlUp).Row
ws.("?" & Lastrow).Copy ws1.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
i是一个数字，它被转换为列名。我需要一个从4号开始的范围，比如如果我=1，我需要范围(“A4”& Lastrow)。我有最后一排，我可以得到A，但是我如何使它成为A4
浏览 1提问于2015-04-01得票数 0
回答已采纳
4回答
我正在使用C# excel互操作框架为我的公司自动生成一堆报告，我想知道是否有人知道如何使用它进行公式拖动。
如果我可以用命名范围来做这件事，那就更好了，但即使我必须硬编码行，这样它也是沿着A10:J10到A20:J20的方向拖动的，这可能是可以的。
即使是任何一个解释如何做到这一点的网页的指针都会非常感谢，因为我有点卡在这个页面上了。
谢谢!
浏览 0提问于2010-11-20得票数 1
回答已采纳
1回答
批处理更新跟踪
、、
我在尝试预先填充google过滤器，然后做一个batch_update时遇到了问题。我得到正确的执行，表被导入，过滤器被创建。当批处理更新发生时，我会得到一个我不明白的回溯。我认为追溯可能来自于我编码sheetId的方式。如果有人对如何阅读回溯有一些智慧，以便我能够解决潜在的问题，我将感激它。
我使用python3.10和gscand5.3.2，我的过滤器设置来自我对底层Google方法的阅读。
提姆，请告诉我
Traceback (most recent call last):
File "/Users/peiffer/sre-cert-manager/scripts/get
浏览 37提问于2022-04-19得票数 0
回答已采纳
当我尝试在脚本中对列进行排序时，它返回range类的error sort方法，运行时错误1004失败。下面我包含了调试此错误的脚本以及脚本中使用的声明。
Set SbA = Worksheets("SumByAddress")
Set SbM = Worksheets("SumByMeterSize")
Set SFD = Worksheets("ShortFormData")
Counter = 2
premiseID = ""
RowNew = 2
TotalRows = SFD.Cells(1, 1).End(xlDown)
浏览 0提问于2018-06-20得票数 0
回答已采纳
1回答
我不知道我的问题描述是否准确，但基本上我有以下几点：
因为我在这里工作，所以每个职位都是一对。我希望循环遍历整个列表，并计算每个位置对中的值差异(因此我希望找到损失或增益)，并将其返回到另一个单元格。这里，第一个位置对之间的差值是14688，下面是另一个位置。我在这里做了一个简短的代码来尝试正确的逻辑，但它绝对不是。在这里有帮助吗，伙计们？提前谢谢。如果我对我的问题含糊不清，我会修改它。
第一个位置在第63排。
Sub hello()
Dim sum As Long
Dim i As Long
For i = 63 To 100
sum = range("T63
浏览 1提问于2016-10-27得票数 0
回答已采纳
1回答
如何在用户表单的标签中使用target.value？无论我尝试什么，我都会得到一个错误。(运行时"438"：对象不支持属性或方法)
我希望用户表单在单元格编号更改时显示：
我的工作表代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("D8:D12")
If Not Application.Intersect(KeyCells, Target) Is Nothing Then
U
浏览 3提问于2020-01-16得票数 0
我使用Excel Interop12.0编写了C#应用程序，它在Excel2007和Excel2010上运行良好。但它在Excel 2016上是随机工作的。有时会给出Range类的激活方法失败的错误。当我重新运行程序时，它是正常的。我再一次运行它抛出错误。该程序打开大约30个工作簿，并从C#填充工作簿。我在很多地方使用Range.get_ReSize()和Range.Activate()。为什么行为是随机的？任何帮助我们都将不胜感激 xlWb.Activate();
xlWsSummary.Activate();
Excel.Range ra = xlWsSummary.UsedRang
浏览 24提问于2019-02-07得票数 0
2回答
非常新的VBA，所以我需要一些帮助在这一个，因为我一直在为它奋斗一整个上午。我有一个主列表，在D栏中，有像“每日1倍”和“1 x月”这样的词。我的目标是，无论它在那一栏中说什么，它都会被放入相应的新单子中。因此，在本例中，如果D2 =“1xDaily”，则整个行将被复制到标题为“1xDaily”的工作表中。
下面是我最近的尝试，但由于各种原因我认为不会成功，但这是我想出的最好的尝试。
Sub Test()
For Each Cell In Sheet(1).Range("D:D")
If Cell.Value = "1x Daily AM" Then
浏览 3提问于2017-04-10得票数 1
回答已采纳
1回答
我有一个用WKBK 1设计的标准模板，用来给老师打分。WKBK 1有15个不同的工作表，每个老师一个。在WKBK 2中，我有一个表，用来记录它们不同功能的分数。我正在使用(或尝试使用)宏来提取WKBK 2中的数据并将其转储到WKBK 1中。当我尝试在整个工作表中循环使用宏时，宏从教师1中拉出，并将他们的分数分配给教师2-15。
Sub Scorecard()
Dim Current As Worksheet
For Each Current In Worksheets
Range("TeacherYTD") = "='[Teache
浏览 0提问于2014-02-01得票数 1
我的任务是导入和解析一个巨大的XLSX文件，并将其显示为仪表板(我知道这将是后端的一项任务，但我需要在前端完成)。
我需要最后100排，有人能帮我吗？到目前为止，这是我的代码：
const handleFile = async(e) => {
const file = e.target.files[0];
const data = await file.arrayBuffer();
const workbook = XLSX.readFile(data, {sheetRows: 100});
const worksheet = workbook.Sheets[workbook.S
浏览 11提问于2022-07-14得票数 0
回答已采纳
2回答
我对vba还是个新手，我看过的所有解决方案都集中在更改值而不是公式上。
我在sheet2上有一个名为"table1“的表。当R列调用更改时，它应该对H列中的日期加时间戳
该公式基于其他列的串联。示例: B2 A2将是狗和Cell猫。R2会给狗猫看。如果我更改了B2或A2，我希望日期戳为H2。
请帮帮我:)
浏览 0提问于2018-04-03得票数 0
3回答
我有一个工作表，其中的Appt文本非常长。我需要把它放在一排九个合并的单元格里。
我试图检查A列中的所有单元格的值"Appt：“，然后将九个单元格合并到右边，这样我的所有数据都以可视的格式显示。
我在网上查看了很多帖子，但无法将我的特定代码放在一起。我已经建好了，除了合并。
Sub MergeTest()
Dim cel As Range
Dim WS As Worksheet
For Each WS In Worksheets
For Each cel In WS.Range("$A1:$A15")
If InStr(1, cel.Value
浏览 4提问于2020-01-10得票数 1
回答已采纳
我需要跟踪一些工作表中的单元格样式更改。我不能使用Excel 2007/2010中的内置跟踪，因为我需要自定义一些东西。我尝试通过Workbook_SheetChange跟踪样式更改，但失败了。当我将单元格从一种样式更改为另一种样式时，它永远不会触发。
是否有其他事件可用于跟踪样式更改？或者有什么解决方法？
浏览 2提问于2012-04-12得票数 0
我是VBA的新手，刚刚开始自学。当我尝试运行我的程序时...
Sub cpy()
range("k1:k12").Select
Selection.copy
Application.Goto Worksheets("Sheet1").range("m4").Select
ActiveSheet.Paste
End Sub
..。我得到以下错误：Unable to get the selected property of the range class。
所以我尝试单独运行出错的代码行：
Sub cck()
浏览 0提问于2021-04-17得票数 2
我正在尝试(但失败了)在ListObject的HeaderRowRange中查找给定的字符串。我想提取ListObject-Column Count (而不是电子表格-column count)。我正在尝试使用".index“来解决这个问题，但是，它遇到了一个错误。下面的代码有什么问题？
查看截图以更好地了解我的目标:w/在ListObject Column3中是第3列，而w/在工作表中是第6列(F列)。我希望代码中的j是3(而不是6)。
Sub MWE()
Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Workshe
浏览 7提问于2021-06-03得票数 1
我正在构造一个宏来获取数据转储，对某些条件进行排序，将每个新的数据集移动到一个新的工作表中，对数据进行加和，然后将这些汇总转到汇总页。
我构建了整个代码，只是无法让“摘要”页正确链接到工作表。最初，我使用以下内容链接到特定的单元格：
Range("G3").Select
ActiveCell.FormulaR1C1 = "='CR RESIDUALS - 1 to 15'!R[878]C[5]"
总数并不总是在同一个单元格中。它将在列(L)中，但它可以是100行，甚至是1000行。我试着用“最后一排”的变体。
我一共有12个标签。如何将我的工作表
浏览 3提问于2016-01-22得票数 0
回答已采纳
如果用户选择的项与J中的范围相等，我正在尝试编写一个代码，该代码将从我的excel表中添加数据。如果J中的范围中填充了所有数据，这将完美地工作，但是如果中间有空白，如何让行在最后一个填充的单元格中始终计数？我附上了一张照片来说明我的意思。
。
我想一直数到最后的“黄金”。现在它只计算到第二个。
Private Sub cboName_Click() 'only get values that are assigned
Dim j As Integer, k As Integer, i As Integer
Me.lstProvider.Clear
i =
浏览 0提问于2018-11-19得票数 3
回答已采纳
我试图计数第一行(A1-D1)的单元格号，这就是所谓的标题，并将该计数作为计数器。
一直以来，它们中的大多数都使用Usedrange来计数列：
$headercolcount=($worksheet.UsedRange.Columns).count
但是UsedRange将捕获整个活动表中的最大计数，如果标题下面有额外的内容数据，则会导致与第一行中的列计数不同。
我只想抓住第一排：
[
]
更新:为了获得更清晰的视图，下面是一个示例。由于1F & 1G没有存在值，所以答案应该是5作为1A-1E，因为它包含数据。那么我应该如何正确地抓住这5点呢？
[
]
浏览 2提问于2017-10-12得票数 1
回答已采纳
我正在尝试编写一个宏，该宏根据L列中的值更改颜色。如果L列中的单元格是“是”，那么高亮列B单元格是“红色”。然而，下面的宏不起作用或失败。它运行但什么也不做。
Sub ColorMeElmo()
Dim i As Long, r1 As Range, r2 As Range
For i = 2 To 5
Set r1 = Range("L" & i)
Set r2 = Range("B" & i & ":B" & i)
If r1.Value = "YES" Th
浏览 1提问于2017-05-25得票数 0
回答已采纳
我有一个表格在excel中，自动(或手动)更新从一个网站上拉。
我有另一个链接表，我想在每次数据更新时自动排序。有办法做到这一点吗？
浏览 0提问于2012-03-09得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
