使用.Range.Find()方法删除行
使用.Range.Find()方法删除行是一种在Excel中删除特定内容所在行的方法。该方法可以在指定的范围内搜索并定位到包含特定内容的单元格，然后可以通过删除整行来删除这些单元格所在的行。
具体步骤如下：
- 首先，选择要进行搜索和删除操作的范围，可以是整个工作表或特定的单元格范围。
- 使用.Range.Find()方法来搜索包含特定内容的单元格。该方法接受要搜索的内容作为参数，并返回一个代表搜索结果的对象。
- 判断搜索结果是否为空，如果为空则表示没有找到匹配的内容，搜索结束。
- 如果搜索结果不为空，则可以通过搜索结果对象的Row属性获取到包含特定内容的单元格所在的行号。
- 使用.Rows()方法选择要删除的行，将搜索结果对象的Row属性作为参数传入。
- 调用.Delete()方法删除选定的行。
下面是一个示例代码：
Sub DeleteRowsWithContent()
Dim searchRange As Range
Dim searchResult As Range
Dim deleteRows As Range
Dim searchValue As String
' 设置搜索范围
Set searchRange = ActiveSheet.UsedRange
' 设置要搜索的内容
searchValue = "要删除的内容"
' 使用.Range.Find()方法搜索内容
Set searchResult = searchRange.Find(searchValue)
' 判断搜索结果是否为空
If Not searchResult Is Nothing Then
' 初始化要删除的行
Set deleteRows = searchResult.EntireRow
' 继续搜索并删除其他匹配的行
Do
' 继续搜索下一个匹配的内容
Set searchResult = searchRange.FindNext(searchResult)
' 将搜索结果添加到要删除的行
Set deleteRows = Union(deleteRows, searchResult.EntireRow)
Loop While Not searchResult Is Nothing
' 删除选定的行
deleteRows.Delete
End If
End Sub这个方法适用于需要根据特定内容来删除行的情况，例如删除包含特定关键字的行或删除某个条件下的行。在Excel中，使用.Range.Find()方法可以快速定位到包含特定内容的单元格，并通过删除整行来删除这些单元格所在的行。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云官网：https://cloud.tencent.com/
- 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 腾讯云云数据库 MySQL 版：https://cloud.tencent.com/product/cdb_mysql
- 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
- 腾讯云人工智能（AI）：https://cloud.tencent.com/product/ai
- 腾讯云物联网（IoT）：https://cloud.tencent.com/product/iot
- 腾讯云移动开发（移动推送、移动分析、移动测试等）：https://cloud.tencent.com/product/mobile
- 腾讯云区块链（BCS）：https://cloud.tencent.com/product/bcs
- 腾讯云元宇宙（Tencent Cloud Metaverse）：https://cloud.tencent.com/solution/metaverse
相关·内容
这是我想要做的：
我有一个电子表格，其中包含可变数量的行，每个行的长度都是可变的。
包含行的范围在开始和结束时由列A中的标识符标记，格式如下："#Description“
如前所述，每行的长度(这里的长度=列数)是可变的。对于每一行，我需要遍历每一列，并确定它是否包含用户定义的字符串。
Set firstDesc = ws.Range("A1:A9999").Find("# Description:")
Set secDesc = ws.Range("A1:A9999").Find("# Description:", f
浏览 0提问于2013-02-26得票数 0
回答已采纳
我感觉我已经很近了，但我感觉真的很远。
我有一个名为temp的工作表。
在M2中，有一个惟一的标识符，所以我知道需要在另一个名为specs的表中查找哪一行。
需要将工作表temp的G2的值粘贴到搜索值(在工作表specs中)的右侧3列。
我走了这么远，但现在我被卡住了:/
Sub search()
Dim indexnr As String
Dim rngFind As Range, rngLookUp As Range
indexnr = Sheets("temp").Range("m2")
Data = Sheets("temp
浏览 0提问于2020-09-14得票数 0
我有点卡住了，希望你们中的一些人能帮助我。自从我用C++编写代码已经有5年了，所以我有点生疏了，以前从来没有接触过VBA。
我希望批量替换包含数字(但可能是文本)的excel工作簿的一行。在B列中，有一个部件号。用户应该能够将零件号放入包含宏的工作簿的字段中，并粘贴到需要插入的整行(大约30列数据)中。
示例:部件号: 123456替换为:x 123457小部件，顶部5 x 9 x 10塑料
宏应该遍历文件夹中的所有工作簿，搜索B列中的零件代号(此零件代号并不总是在第一张工作表上，有时它在第二张或第三张工作表上)，并用宏工作簿中指定的行替换整行。要复制和粘贴的行将完全适合目标格式。
需要保存、
浏览 0提问于2014-11-06得票数 0
如何使用excel互操作在Excel工作表中查找行，而不必遍历每一行？我想使用foreach语句遍历我的集合，在employeeId和charge数字存在的地方，我想更新该员工和charge数字的总小时计数。
这是我当前的代码，但是它太慢了！
我是否可以使用excel范围来查找包含employeeId和费用编号的行，而不是嵌套的for循环？
var lastLine = sheet.UsedRange.Rows.Count;
foreach (var timeEntry in filteredList.OrderBy(x =>int.Parse(x.ChargeNumber.Spli
浏览 0提问于2017-05-12得票数 0
我对VBA的编码还不熟悉。我想做以下工作: 1.在一个表中查找多个特定的标头。2.将这些标题的列设置为变量。3.将变量的字体大小更改为14。
表中特定标题的位置经常会发生变化，所以我使用了find方法。首先，我只想看看是否可以成功地更改特定标题的字体大小。但是，遗憾的是，我在最后一行中得到了一个错误："Object变量或带块变量未设置“。
Sub ASOLDPrintFormat1()
Dim ReferenceCell As Range
Dim WS As Worksheet
Dim Table As Range
Dim BigColumns As Range
Set Refer
浏览 0提问于2019-08-22得票数 0
回答已采纳
我已经创建了一个具有2个组合框、一个文本框和一个按钮的用户表单，该按钮将根据场景链接组合框/文本框。 对于其中一种情况，如果组合框2，则显示当前在工作表MRFGLR范围列A中的相同文本/值。使用与工作表MFGLR中的组合框2值相同行中的文本框值更改列AE的值。在用户窗体中，将Textbox链接到与combobox相同的行但不同的列 我很难让代码找到与combobox2值相同的行，然后将textbox1值粘贴到右侧31列。这就是我到目前为止所拥有的。 With Worksheets("MFGLR").Range("a1:a500")
Set C = .Find(
浏览 10提问于2019-05-30得票数 0
我想找到一个关键字，然后对它执行一个操作。
Dim ws as Worksheet
Dim LastRow As Long
Dim NextRow as Long
Set ws = ActiveWorkbook.ActiveSheet
LastRow = ws.Range("A:A").Find(What:="", After:=Range("A10")).Row
NextRow = ws.Range("A:K").Find(What:="This City Is:").Row
ws.Cells(LastR
浏览 0提问于2019-09-03得票数 1
回答已采纳
我希望有人能帮助我。几乎完成了所有的工作，我的excel崩溃了。在崩溃之前，一切都很好。现在，我在"ActiveCell.Find(i).Select.“这一行得到了一个运行时错误。-下面是我的程序，它在文件中搜索一个特定值，找到它，然后转到包含该值的最后一行。
Sub FindValue_Raw()
Dim Value As Variant
Dim Sheetname As String
Dim lastCell As String
Dim x As Integer
Dim iVal As Integer
Dim i As Variant
Value = InputBox(
浏览 3提问于2020-05-01得票数 0
下面的代码是否正确?它总是输出"Nothing Is found“，但我有一个与DateTxt匹配的数据。下面是我想要做的事情，我希望它找到当天，选择它的列，并将其复制粘贴到另一个工作簿和工作表中，这将与前一天相同。日期在第2行，在列中移动。
Dim DateTxt As Date
DateTxt = CLng(Date)
...
With DataWB.Worksheets("Summary").Range("2:1")
Set rng = .Find(What:=DateTxt, _
After:=.
浏览 0提问于2014-09-07得票数 0
我正在尝试编写一个子例程，它搜索一系列单元格，并返回具有指定值的第一个单元格的列号。到目前为止，这就是我所拥有的：
Dim StartCol As Long
Dim rngSearch As Range
Dim rngFound As Range
USedCol = ActiveWorkbook.Sheets("...").UsedRange.Columns.Count
Set rngSearch = Range(Cells(6, 2), Cells(6, USedCol))
Set rngFound = rngSearch.Find(What:="
浏览 0提问于2015-06-19得票数 0
回答已采纳
10回答
我使用C#自动生成excel文件。我能够得到工作簿和其中包含的工作表。例如，我在sheet1中有两个cols和5行。我想得到被占用的单元格的范围为A1:B5。我尝试了以下代码，但它没有给出正确的结果。第#列和第#行要大得多，单元格也是空的。
Excel.Range xlRange = excelWorksheet.UsedRange;
int col = xlRange.Columns.Count;
int row = xlRange.Rows.Count;
有没有其他方法可以让我得到这个范围？
浏览 2提问于2009-08-16得票数 35
下面的代码从列表中选择一个随机项。
Sub Rand()
ActiveWorkbook.Sheets("Kudo Prize").Range("B1").Formula = Evaluate("=INDEX(Lista!$A:$A,RANDBETWEEN(1,COUNTA(Lista!$A:$A)))")
End Sub
它工作得很好，但我想添加一些内容，这样宏就可以从列表中删除项目，项目重复多次，所以我只想删除一个实例，例如，B1中的结果是"Coffe“，我希望宏在"Lista”表中找到"Coffe“的第一个实
浏览 4提问于2016-03-29得票数 0
回答已采纳
1回答
我有一个名为“选择名”的单元格，它被随机地放置在同一个工作簿的许多工作表中。请知道如何在工作簿的所有工作表中查找那个单元格值，我试着在第一行的所有工作表和所有单元格中循环查找该字符串值，但我似乎找不到解决方案，这就是我所做的：
For Each ws In ActiveWorkbook.Worksheets
col_num = ws.Range("A1").End(xlToRight).Column
For Cel1 = 1 To clom_num
If ws.Cells(1, Cel1).Value = "Cell Nam
浏览 3提问于2014-07-16得票数 0
回答已采纳
2回答
我使用的是一个宏，它遇到了错误(无效限定符)，指出i变量有问题。希望有人能帮我改进这段代码。
Sub Macro6()
Dim last As Long
Dim i As Long
With ActiveSheet
last = .Cells(.Rows.Count, 1).End(xlDown).Row
For i = last To 1 Step -1
If .Cells(i, 1).Value Like "X" Then
.Cells(i.End(xlDown), 1).EntireRow.Dele
浏览 9提问于2022-11-10得票数 2
回答已采纳
1回答
我有一个简单的例程，可以将数据从用户输入表(Sheet1)复制到受保护的工作表(Sheet2)，以便自动工作。我在调试一行简单的代码时遇到了麻烦，只是希望有人能帮我清除这个代码:)
Sub CopyData()
Dim LastRowSh1 As Long
Dim LastColSh1 As Long
Dim Sheet1Data() As Variant
Dim LastRowSh2 As Long
Dim LastColSh2 As Long
With Sheets("Sheet1")
' Defines data range in S
浏览 2提问于2014-12-01得票数 1
回答已采纳
如果有人能给我一些帮助，我会很感激的。
下面有下面的VBA代码，它执行以下操作
查看Excel工作表中指定的范围
当它找到一个与今天的日期匹配的单元格时，它会选择该单元格
问题是，这段代码正在查看1500行，以找到有今天日期的单元格，这需要一些时间。对我如何加快速度有什么想法吗？这是我的密码：
Dim DateRng As Range, DateCell As Range
Set DateRng = Range("1:1500")
For Each DateCell In DateRng
If DateCell.Value = Date Then DateCel
浏览 4提问于2014-10-21得票数 0
回答已采纳
1回答
在visual studio中，我得到了以下错误：“未声明选择”。
我试图在vb中创建一个简单的word应用程序，它允许我在文档中查找和替换多个值。我知道选择应该是文件的全部内容，我一直在研究MSDN，但我肯定遗漏了一些东西，因为我无法确定我应该做什么来声明要搜索哪个选择。
在我的项目中有两个项目：
ThisDocument.vb:
Imports Microsoft.Office.Interop.Word.Range.Select
Public Class ThisDocument
Private Sub ThisDocument_Startup(ByVal sender As Ob
浏览 2提问于2017-02-09得票数 1
1回答
我有一个基于资源是否可用而希望分配给资源的资产列表。
这两个列表的长度都是可变的。
我正在追逐一个宏，它将查找列表1，如果有可用的资源，它将查找列表2并获取下一个资产。
浏览 0提问于2016-06-07得票数 0
我正在尝试使用查找包含文本的合并单元格的最后一行，并隐藏它旁边的所有行 例如： A1:A5是带有文本"A“的合并单元格，A6:A10是带有文本"B”的合并单元格，依此类推 我想写一段代码，找到合并单元格的最后一行文本"B"，并隐藏合并单元格上方或下方的任何行。 目前，我正在手动定义要隐藏的行，但这些行经常更改，因此我的方法效率不是很高。 对于如何找到最后一行有什么建议吗？ Sub FindLastRow()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Test")
'Hide
浏览 103提问于2020-10-22得票数 0
回答已采纳
1回答
我正在完成一份食物日志，我在Excel中跟踪它。我喜欢更新live (vs. end of day)，每次我有一杯水，我想按下宏键，它会找到今天的日期，并在运行的计数上加+1。 有没有办法做一个匹配函数，用A4中的公式在单元格A4中找到今天的日期：=Today()，并将其与我的食品日志日期(日期在B列)进行匹配？ 尝试将今天的日期与A4进行匹配，该数字将使每次消耗的水玻璃数量增加1。我熟悉作为公式的匹配和索引，但不能在VBA中理解它。 我现在只有一个单元格加1 Cells(1,1).Value = Cells(1,1).Value + 1 我想要通过按下一个宏键x次来获得一个累积值，从而得到
浏览 7提问于2019-05-29得票数 0
我是Powershell的新手，我有一个excel表，其中E列包含不同门店编号1- 2500的子网列表，门店编号保存在B列。 我想从user中读取商店编号，并将E列中的子网输出到一个变量。 这就是我到目前为止所拥有的。 $FilePath = "C:\temp\IP.xlsx"
$SheetName = "STORE SUBNET MASK"
$Excel = New-Object -ComObject Excel.Application
$WorkBook = $Excel.Workbooks.Open($FilePath)
$WorkSheet = $Wo
浏览 9提问于2019-06-17得票数 0
回答已采纳
很抱歉在没有任何代码的情况下发布问题，但不确定从哪里开始。在粘贴到目标工作簿之前，我必须通过重新排序列来从工作簿复制数据并粘贴到目标工作簿中。两个工作簿的第一列都有编号，因此如果源工作簿中某列的编号为5，则应将该列粘贴到顶部列编号为5的目标工作簿中。我们在源工作簿中也有一些列，其中第一列中不会有任何编号，因为目标中不需要该数据。我有1-20 columns.data从第3行开始，并粘贴在目标workbook.Can的第3行，有人请帮帮忙。
浏览 16提问于2020-04-30得票数 0
这是用于Excel中的vba脚本的。在查找引用值的With块中搜索另一个工作表时出错。
我不熟悉Excel中的vba脚本。我从这个网站上读到了一些代码片段，并尝试了一下。不知道为什么我老是犯这个错误
运行时错误'91‘。
我发现这意味着“对象变量或块变量未设置”。
Public Sub ReplaceCovCfg()
Dim sValToFind As String
Dim rSearchRange As Range
Dim sFirstAdd As String
Dim rFoundCell As Range
Dim rAllFoun
浏览 0提问于2019-05-15得票数 0
1回答
嘿，也许我在这里没有看到明显的东西，但是如何使用带有预定义变量的Find VBA函数。我使用的是从用户表单中分配的字符串的级联，在它前面只是“总计”，但是我不能返回该行。
下面是我的代码
Dim HBWS As Worksheet
Dim TickerString As String
TickerString = "Total " & TTB
Set HBWS = Sheets("Hoenheimm Worksheet")
BorrowColumn = HBWS.Cells.Find(What:="Borrow").Column &#
浏览 0提问于2018-03-23得票数 1
回答已采纳
3回答
我找到了一个在活动工作表中高亮显示合并单元格的过程：
我尝试使用ActiveCell.EntireRow.Delete语句删除当前迭代的行。
Sub DeleteRows()
Dim x As Range
For Each x In ActiveSheet.UsedRange
If x.MergeCells Then
x.Interior.ColorIndex = 8
ActiveCell.EntireRow.Delete
End If
Next
End Sub
我不在乎突出合并的单元格。目
浏览 0提问于2018-12-18得票数 0
回答已采纳
我不需要在提交客人入住详细信息时填写搜索框，我使用的代码如下，是否可以添加额外的代码来避免此错误。提前感谢！lblrow.Caption = .Row‘错误行
Private Sub Txtforename_Change()
Dim rng As Range
lblrow.Visible = False
With Sheets("Report")
Set rng = Range(.Cells(1, 1), .Cells(1, 1).End(xlDown))
End With
With rng.Find(Txtguest
浏览 0提问于2018-11-19得票数 0
因此，我有一个电子表格，我试图在其中查找某些列标题的索引。我发现XlLookAt.xlWhole找不到这个值。但是，如果我使用XlLookAt.xlPart，就会发生这种情况。 我无法使用xlPart，因为它在某些情况下找不到正确的匹配项。 我已经确认，在实际电子表格的单元格中只有AMT_ISSUED，并且两端都没有空格。 有人知道为什么XlLookAt.xlWhole不能工作吗。下面是我使用的代码 List<int> columnNumbers = new List<int>();
object misValue = System.Reflection.Missin
浏览 19提问于2020-01-10得票数 1
回答已采纳
1回答
早上好，我对vba还是个新手。我在一个工作站的工作簿中有几个电子表格，由于人为错误，该工作站在日常交付中容易出现短缺或过剩。我想要一种方案，其中我可以搜索整个工作簿以从列K(显示短缺或剩余)中提取数据，但它必须满足列A(交货日期)和列D(交货地点)中的特定标准。换句话说，我想搜索K列，以了解我选择根据日期搜索的任何一天是否存在短缺或过剩。任何形式的帮助都是非常感谢的。谢谢。
浏览 18提问于2019-01-06得票数 0
回答已采纳
2回答
我想创建一个for循环来检查我所拥有的工作表中的所有行，并希望此代码能够删除某些列中包含指定内容的行(即，如果列K包含“六月”，则删除该行。有没有办法对此进行编码？
*编辑我让代码在一列中搜索条件，但现在我需要它来搜索和删除基于两列中的数据的行。即，如果列K中的数据与单元格AJ1 (已有)匹配，而列J中的数据与AK1匹配，则删除这些行。
我的代码是这样的：
子DeleteRows()
Sheets("Sheet1").Select
Dim rFind As Range
Dim rDelete As Range
Dim strSearch As String
Dim iLookA
浏览 1提问于2014-07-25得票数 0
是否有可能在powershell中找到包含特定字符串的所有单元格引用？$Range.Find总是只返回工作表中的最后一个单元格，我需要所有的单元格(还是必须循环遍历每一行？呻吟)
$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $true
$Workbook = $Excel.Workbooks.Open("C:\Users\some.xlsx")
$MySheet = $Excel.Worksheets.Item("somesheet")
$Range = $MySheet.U
浏览 0提问于2015-05-01得票数 0
回答已采纳
正在尝试将vbscript转换为php。
在脚本中使用下面这一行：
digit = Application.WorksheetFunction.Find(aChar, PERMITTED)
其中aChar是字符，允许是字符串。
这看起来像是某种验证，但不是100%确定。
数字将是什么值？如果不允许使用aChar，会发生什么？
不是很清楚。
浏览 0提问于2014-08-09得票数 2
回答已采纳
1回答
使用excel vba，我将列号存储在一个变量(例如x)中，并且需要在该列中找到一个字符串--该列中的行数将有所不同，不能硬编码。我想使用Range.Find方法来寻找这样的东西
Set rng =Worksheet.Range().find(...)
if Not rng is Nothing .....
因此，想知道使用列x的Range()应该是什么？
谢谢
浏览 1提问于2020-04-09得票数 0
回答已采纳
有谁能告诉我下面的代码。我希望能够找到“索引”出现的那一栏：
Sub Test()
Dim d As Range
Dim a As Variant
Set d = Sheet2.Range("H349:M349")
a = Application.WorksheetFunction.Match("Index", d, 0)
End Sub
但在最后一行中我发现了一个错误：
无法获得WorkSheet函数类的Match属性
浏览 5提问于2013-08-13得票数 0
要找到最后一行或列，我通常会使用如下内容：
LR = Cells(Rows.Count, 1).End(xlUp).Row
LC = Cells(1, Columns.Count).End(xlToLeft).Column
但是，在没有列头的情况下，我试图找到最右边的列，我希望找到的列可能是B列(IE "B27")，也可能是列Z (IE "Z1000")，或者任何随机单元格。
类似地，我还试图在同一工作表中找到最后一行，没有列标题，最后一行可能在任何列中。
知道如何做可以在几个场景中有所帮助，但为了详细说明我的当前场景，我尝试连接一些从其他源复制的行，并有许多选
浏览 37提问于2022-04-13得票数 0
回答已采纳
提前感谢您的帮助！我没有在excel中使用过太多的VBA，也不知道如何做我需要的，但是我相信我需要它来实现我在工作簿中所需要的功能。
我有31个数据页面，其中我需要查找是否存在某些信息，并将其显示在摘要页面上。
我需要的是检查在列AQ中是否有值，如果有，我需要在E，F和G列的该行中返回数据。每页可能有多个实例，或者每页没有实例。
希望这个例子能更好地解释它：
E F G ... AQ
Date Name Location Excepti
浏览 7提问于2017-12-22得票数 0
每当我尝试在某个范围内使用find方法时，我都会得到一个运行时错误'91‘。我有一个日期数组(“A1:A5”)，我使用max方法从这个数组中得到最高的日期，但是我想要得到另一个值，它是B列("B1:B5")，并且在我之前找到的最高日期的同一行中。 Dim wkbFrom As Workbook
Dim wsmb As Sheets
Dim MBSheet2 As Worksheet
Dim rowTMO as long
Dim carica_range As Range
Dim TMOcarica_range As Range
'Define The MB
浏览 221提问于2020-10-06得票数 0
回答已采纳
从下面的代码中，TCN.docx文件已成功地使用
Application.ScreenUpdating = False
而不是
Visible:= False
Sub workonTCN()
Dim odoc As Document
Dim path As String
path = "C:\Users\Bilal\Desktop\TCN.docx"
Set odoc = Documents.Open(filename:=path)
Application.ScreenUpdating = False
Selection.Find.Clear
浏览 3提问于2016-04-21得票数 0
回答已采纳
我在excel vba中编码时，在运行代码时遇到错误91或对象变量或块变量未设置错误，但我不确定原因。我定义并设置了我的变量，所以我不知道是什么导致了错误。相关代码如下
Sub Button5_Click()
Dim i As Integer
Dim Month As Range
Dim Avg As Range
Dim Target As Range
Dim Incorrect As Range
Set Month = Range("J19")
Set Avg = Range("H19")
Set Incorrect = Range("A19&#
浏览 2提问于2015-01-17得票数 1
回答已采纳
我正在使用c#程序在我的excel表格中搜索文本。我有一个名为"MASTER“的excel工作表，在这个工作表中，B列有很多文本。我想在B列中查找文本"apple”。下面是我的代码：
Excel.Worksheet workSheet;
workSheet = (Excel.Worksheet)xlWorkBook.Worksheets["MASTER"];
string result;
string utterance = "apples";
range1 = workSheet.Columns["B:B"] as Excel
浏览 16提问于2018-08-17得票数 1
回答已采纳
1回答
目前我正在使用xlwing打开我的Excel工作簿，并且我能够通过使用"find“方法来捕获特定单元格中的数据。然而，xlwingsExcel太耗时了，我想用PyWin32包替换xlwings包，它将用于我的开发。
但是我找不到像xlwing这样的方法。有没有什么方法可以像xlwing一样在PyWin32中实现捕获数据。
感谢你的帮助。
下面是xlwing中的代码示例：
find_location = wbook.api.Cells.Find(What='car',
LookAt=xlwings.constants.L
浏览 6提问于2018-06-12得票数 0
1回答
我正在尝试查找包含与我的其他文件相同的日期的行。但是它在定义行号的那条线上有错误91。有人能帮我解决这个问题吗？已成功找到'mth‘。
Sub abc()
Dim x As Workbook
Dim y As Workbook
Dim WB As Workbook
Dim PCFilePath As String
Dim PCFile As String
Dim RSFilePath As String
Dim RSFile As String
Dim mth As Date
Dim row_mth As Lon
浏览 1提问于2019-08-16得票数 0
1回答
我有一个Word文档，在这里我需要用值替换文本中的所有标记<>。通过互操作，我可以通过Regex类访问主文本和标题文本，
static string GetContent(Word.Document document)
{
return document.Content.Text;
}
static string GetHeaderFooterText(Word.Document document)
{
StringBuilder sb = new StringBuilder();
fore
浏览 9提问于2022-03-05得票数 0
excel中有没有一个函数可以找到某一特定值的行的索引？
例如，如果我写函数( 5.77 )，它将返回5，因为5.77出现在第5行。
'1频率'2 4.14 '3 4.19 '4 5.17 '5 5.77 '6 6.39
浏览 6提问于2010-01-02得票数 1
1回答
我设计了一个UserForm，并添加了一个包含16个不同选项的ComboBox。
如何将每个选项与特定的列连接起来？我想选择一个与列表选项中提供的列名相同的特定列名
我已经包含了从进入属性，然后选择行源的选项范围
Private Sub ComboBox1_Change()
UserForm3.Show
End Sub
Private Sub CommandButton1_Click()
UserForm3.Show
End Sub
浏览 0提问于2019-07-23得票数 0
2回答
我在电子表格上使用match函数，电子表格具有相同的关键字，但在不同的行中，我试图获取行号，为了做到这一点，我想使用关键字的第二个实例。如何在VBA中实现这一点--我的当前代码是
Application.WorksheetFunction.Match("Hello", Range("A1:A100"), 0)
我正在考虑使用Index函数，但我不太清楚如何使用它。
浏览 2提问于2016-06-06得票数 0
回答已采纳
1回答
我有一个代码，如果单击一个单元格，将搜索E列中的第一个空单元格：
If Target.Cells.Count = 1 Then
If Not Intersect(Target, [B2]) Is Nothing Then _
Range("E:E").Find(vbNullString, [E3], , , , xlNext).Select
End If
现在，我想要更改代码，在代码中找到第一个空单元格，并将文本放入同一行的单元格中。因此，如果我只在excell工作表中向下点击，它就会将文本放入B列中的一个单元格中(例如，"add value&#
浏览 2提问于2014-05-13得票数 0
回答已采纳
我试图用下面的公式找到这个单元格，但是它出错了。数据位于ws1工作表上，我在引擎工作表上有run宏按钮。如果我在模块中运行宏，而我选择了ws1，则宏运行没有问题。如果我使用引擎工作表上的按钮运行宏，它就会出错。我尝试在这一行代码的基础上添加ws1.actiavte，但是它没有解决这个问题。
FYI C7=4/1/2022
Set myr = ws1.Range("A:A").Find(ThisWorkbook.Sheets("Engine").Range("C7").Value, after:=ws1.Cells(1, 1), searchdir
浏览 4提问于2022-07-13得票数 0
3回答
我在一个隐藏的列中有一个计算值的范围，我将其用作下拉框。为了确定用户选择了哪个值，我尝试在该范围内运行查找，但由于某种原因，只要该列处于隐藏状态，Excel就不会返回与他们的选择相对应的单元格。
如何在隐藏区域中的单元格上找到工作。记住-我搜索的是单元格计算值，而不是公式。
以下内容不起作用：
Set inserted = Range("RDS_Event_IDs").Find(Range("SelectedEvent"), , xlValues, xlWhole)
只要Range("RDS_Event_IDs")中的单元格是隐藏的。
因为解决方
浏览 7提问于2011-06-10得票数 14
回答已采纳
1回答
我在Excel文档中有6张工作表。
我想比较两张床单。
表1 (Artikelstammdaten)有8555条线
表2 (Warengruppen)有232行
我的守则：
Sub WorksheetLoop()
Dim Current As Range
Dim Element As Range
Dim wgRow As Integer
Dim wbRow As Integer
Dim Warengruppe As String
Dim Warengruppebezeichnung As String
Dim Stamm1 As String
Dim S
浏览 0提问于2018-09-20得票数 0
回答已采纳
1回答
我已经找了一段时间了，我看到了关于粘贴整个列的帖子，从一个特定的行开始，但是在我的例子中，我的专栏是基于一个值的if语句。我仍然是一个业余爱好者，所以我猜答案与在某个地方设置一个i以找到正确的列有关，但我不知道如何在我的例子中合并。下面的代码起作用了，我只是不知道如何从第3行开始复制，而不是使用EntireColumn。谢谢你的帮助，如果我遗漏了任何信息，请告诉我。
Sub ColumnCopy()
For Each cell In ActiveWorkbook.Sheets("Sheet1").Range("B5:AZ3000")
If ce
浏览 1提问于2018-09-21得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
