如何在VBA中根据活动行选择范围？
在VBA中，可以使用ActiveCell属性来获取当前活动单元格，然后通过Offset方法来选择相对于活动单元格的范围。
以下是一个示例代码，演示如何根据活动行选择范围：
Sub SelectRangeBasedOnActiveRow()
Dim activeRow As Long
Dim selectedRange As Range
' 获取当前活动行
activeRow = ActiveCell.Row
' 选择相对于活动行的范围，例如选择当前行的前两列
Set selectedRange = Cells(activeRow, 1).Resize(1, 2)
' 在选定范围上执行其他操作
' 例如，可以对选定范围进行格式设置、数据处理等
' 清除选定范围的内容
selectedRange.ClearContents
End Sub在上述示例中，我们首先使用ActiveCell.Row获取当前活动行的行号，然后使用Cells方法选择该行的第一列（列号为1）作为起始单元格，使用Resize方法来调整范围的大小，这里选择了1行2列的范围。最后，我们将选定的范围赋值给selectedRange变量，可以在该范围上执行其他操作。
请注意，上述示例仅演示了如何根据活动行选择范围，并清除选定范围的内容。根据具体需求，你可以根据活动行选择不同的范围，并在选定范围上执行各种操作。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云官网：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/iotexplorer
- 云原生应用引擎（TKE）：https://cloud.tencent.com/product/tke
- 区块链服务（BCS）：https://cloud.tencent.com/product/bcs
- 腾讯会议：https://cloud.tencent.com/product/tc-meeting
- 腾讯云游戏引擎（GSE）：https://cloud.tencent.com/product/gse
- 腾讯云直播（CSS）：https://cloud.tencent.com/product/css
- 腾讯云音视频处理（MPS）：https://cloud.tencent.com/product/mps
- 腾讯云音视频通信（TRTC）：https://cloud.tencent.com/product/trtc
- 腾讯云安全产品：https://cloud.tencent.com/solution/security
- 腾讯云域名注册：https://cloud.tencent.com/product/domain
- 腾讯云 CDN 加速：https://cloud.tencent.com/product/cdn
相关·内容
我正在努力做到以下几点：
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
回答已采纳
1回答
我有带有复选框宏的隐藏行。
每当我想插入一个新行时，vba代码就会被搞乱，而分配给隐藏下面的行的代码将无法工作。
是否有一种方法动态地让行更改vba中的代码？
因此，我不必重做进程中移动的所有行值和复选框。
IMG]
亚CheckBox1_Click()
If Range("B3").Value = True Then
Rows("4:18").EntireRow.Hidden = False
Else
Rows("4:18").EntireRow.Hidden = True
End If
结束子对象
亚CheckBox2_Cl
浏览 0提问于2013-09-13得票数 0
1回答
在我开始之前，你应该知道，当涉及到编码时，我是一个该死的新手。我正在做一些关于VBA和ArcGIS的大学任务:我的下一个任务是创建一个代码片段，使用户能够编辑属性表中的值(行)。我的属性表由具有基本信息的点组成，例如名称、地址等。我想要做的是加载所有行的列表，并能够单击我想要编辑的特定行。请随时发布更简单的方法来实现此目标。正如我所说的，我对编码世界非常陌生;-)
谢谢大家
帐单
浏览 0提问于2012-03-07得票数 0
回答已采纳
我可以从活动工作表和活动行复制并粘贴到下一个空白行上的"Activesheet_Archivesheet“，但是如果我尝试剪切并粘贴，我找不到找到下一个空白行并”粘贴“的代码。有什么建议吗？(如果我错过了前一篇文章)。
Excel VBA
浏览 0提问于2021-07-24得票数 0
2回答
是否有VBA代码或excel函数可以根据相应B单元格的值突出显示A单元格。例如，如果行A中的数字大于B，则如果B大于B，则突出显示A单元格，绿色和橙色。如图所示
是否有一些选项可以在条件格式中执行此操作？或者甚至是VBA代码？
浏览 2提问于2020-01-08得票数 1
2回答
使用Excel工作表，我尝试搜索与其单元格值中的某些条件匹配的行。
在Excel工作表中进行查询需要类似SQL SELECT的查询语句，VBA中有这样的方法吗？返回与搜索条件匹配的行范围的方法。
我尝试过使用Range AutoFilter方法，但我不能将返回的对象用作访问返回行中的单元格的范围。
我是Excel VBA的新手，如果我的问题看起来很奇怪或愚蠢，我很抱歉
浏览 4提问于2012-03-13得票数 0
我想要实现的是突出显示活动行或列。我使用了VBA解决方案，但是每次使用Selection_change事件时，我都会失去撤销工作表中任何更改的机会。
有没有一种不使用VBA来突出显示活动行/列的方法？
浏览 17提问于2014-03-12得票数 31
回答已采纳
2回答
这是一个让我难以理解的简单问题。我选择了一个活动行。我需要调整这个范围的大小，以便使用VBA添加下22行。例如，它当前仅突出显示第100行。现在，我想扩展选择以突出显示第100到122行。
提前谢谢。
浏览 22提问于2018-08-31得票数 1
回答已采纳
我将在每次选择新单元格时突出显示当前选定单元格的行。我发现有一种方法可以创建一个基于活动单元格的名称。即：
选择单元A1。
选择formula>>name manager>>new，然后创建一个名为=!A1的新名称，名为this_cell。
但是，如果在创建条件格式规则时引用名称this_cell，则将突出显示所有行。
有什么解决办法吗？
我不想使用VBA，因为这可能会清除撤销堆栈。
浏览 1提问于2019-06-06得票数 0
5回答
许多“高级”(又名VBA)的excel网站教程，甚至excel的vba帮助我们使用
Range("B2:B10")
用于选择单元格或获取值的方法(准确地说是: object)。在相同的地方，他们经常添加使用预定义名称也是完全可以的：
Range("valuesabove")
另一方面，我爱上了相对定义的细胞名称的不可思议的力量。它们使编写和处理大型组合公式变得非常容易，并且基本上可以引用几乎任何东西。
但是，在Range("valuesabove") 方法中，相对名称不能像我们习惯的那样工作。
通常(在工作表上使用时)相对名称相对于当前选定的单元
浏览 0提问于2014-11-24得票数 4
Excel中是否有一种方法(可能是VBA)可以根据当前列选择一组过滤行数？当前工作流程经常要求我们一次选择25或100行活动列。
我在研究过程中遇到的大多数宏似乎
选择表或列中的所有数据
包含一个预先定义的列。
我最初以为这将是一个海峡向前的宏观发展，但也有困难。我在研究期间发现的代码向下移动了一组行数，但在计数时似乎没有考虑到过滤过的行。
Sub MoveOneCellDownAFilteredList()
ActiveCell.Select
Range(Selection, Selection.Offset(2, 0)).Select
Do Unti
浏览 1提问于2018-02-28得票数 0
1回答
VBA宏编译错误
、、、
我试图编写一个简单的VBA宏，该宏将接受活动单元格的列和用户的输入，以便在一行中添加一系列单元格。通过将用户输入的整数添加到活动列，即end列，计算范围。问题是，当我运行它时，它会给我一个“编译错误:无效限定符”，并对‘总计’行感到愤怒。
这是我的密码。我刚开始学习VBA，但不可能是hard....right吗？
Sub Food()
Dim first As Variant
Dim last As Integer
Dim days As Integer
Dim month As Range
Dim total As Double
first = ActiveCell.Column
days
浏览 2提问于2017-08-03得票数 1
回答已采纳
我在一个excel 2013表格中有一个快速表格(一个可以过滤标题的表格)。在VBA语言中，我知道如何通过使用Cells(ActiveCell.Row，12).Value之类的方法来获取单元格的值，但是如果我想要在具有特定名称的列下获取活动行的单元格，比如"CUSTOMER name“标题，该怎么办？不是列A、列B、列C、列1、列2或列3，而是列的自描述名称。有可能吗？原因-如果我稍后将该列重新定位到表中的不同顺序，那么在VBA中引用仍然是正确的。
浏览 5提问于2015-01-27得票数 0
提前谢谢你的帮助。我是VBA新手，我需要选择构建此代码的活动-basically的行头，这在VBA中似乎不起作用：
Dim C as range ("I4")
Dim R as C.CurrentRegion
cells(C.row,R.Columns(1)).Select
我不能使用C.End(xlToLeft)，因为左边有另一个表，虽然在两个表之间有一个空列，但这段代码会跳到左边的表中。而且，我的表的第一列不是A，我不能硬编码列号。非常感谢，如果你能帮忙！西尔维娅
浏览 1提问于2017-01-01得票数 0
回答已采纳
我有一个基本问题(已经回答了100次)，就是如何允许用户一次只选择一个单元格(防止多个单元格处于活动状态)。如果用户尝试，它将将活动选择重定向到特定的单元格(B1)。基于快速的google搜索、智能复制和粘贴，以及一些轻微的编辑，这就是我最后得到的结果：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'>> Prevent user from multiple selections
If Selection.Cells.Count > 1 Then
Msg
浏览 4提问于2017-03-01得票数 1
回答已采纳
1回答
我是一个使用PowerPoint VBA的新手！
我想使用SetSourceData来更改图表的数据范围。
我使用的变量如下：
相关的活动图表被设置为变量Myworksheettwo ，与图表相关联的工作表被设置为变量范围变量，称为LastRow和Last_num_col被设置为
所有这些变量在VBA例程中的其他代码行中都能很好地工作。
为了重新设置图表数据的范围，我使用了以下代码行，但它不起作用，使我的VBA例程崩溃：
Mychart.SetSourceData Source:="=Myworksheet.Range(Cells(1,1),Cells(LastRow,Last_num
浏览 5提问于2022-01-03得票数 0
我正在创建一个电子表格，以便在我们的法院系统中使用。我希望工作表在填写时自动展开。没有办法预先确定将使用多少行。我希望当用户填写所有预先指定的行时自动添加新行。这一点我很容易做到。
我已经让VBA在我需要的地方自动创建了新行。
我的问题是新行没有按照我需要的方式格式化。在我的工作表中，在添加的行中，B、C和D列需要合并，E和F列需要合并。
如何将该函数添加到现有VBA代码中？
浏览 1提问于2013-11-22得票数 0
我想要做的是从另一个来源复制一个表，Navision，并将它粘贴到excel中，给出它的格式等等。“复制”过程并不重要，知道如何使其自动化是很好的，但这不是我的首要任务。
复制什么：：
-有7列和来自Navision的可变行的表
存在的问题：
-粘贴没有定义行的表✓(谢谢Ionestorm)
- VBA无法识别剪贴板中的信息。
我认为主要的问题是：
- --我想它是在“外部剪贴板”中复制的，而vba不认识它。
您应该知道我是VBA的新手，我只有C++和basic MySQL的背景，这是我第一次对在日常任务中应用这些知识感兴趣，使他们更容易。我一直在做实验。
我在VBA中找到的有关复制粘贴的信息
浏览 3提问于2016-06-27得票数 0
回答已采纳
如何在不删除突出显示的其他单元格的情况下自动高亮显示活动单元格的整个行？(当有活动单元格时，我想突出显示整个行，然后在移动时取消高亮显示。)T
我知道下面的VBA代码可以做到这一点，但它消除了所有其他填充颜色的单元格。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
' Clear the color of all the cells
浏览 3提问于2015-06-18得票数 0
回答已采纳
我有一个excel，这是一个很长的多列。我想创建一个下拉下拉有列标题作为选择的vba。在选择它时，应该会将我带到活动行的选定列。
浏览 1提问于2015-02-07得票数 0
我需要在VBA中的一个单元格中添加一个“填充底部”。
获得所需的一种方法可能是在新行中向单元格添加一个字号较小的字符(例如一个小点)。
我如何在VBA中实现这一点？
浏览 1提问于2017-07-05得票数 0
回答已采纳
2回答
这可能会让complicated...please忍受我..。
我有一个表，从我的研究中可以找到，这是一个使用查找公式和函数的特殊情况。它比描述要容易得多，因此这里是我的数据截图，以了解我正在使用的内容(实际的表向下延伸60行，向右扩展超过160列)。
(我会将A栏内的数值称为“结果”，第2行的数值称为“整数”，而在整栏数字之下的矩阵则称为“参考编号”)。
我想要做的是创建一个公式，如果我插入一个给定的块号(例如，“BBB 000-”)和引用号(例如，"040")，Excel将从与其一致的结果返回一个列表(在我的示例标准中，它将列出"BBB“、"CCC”、
浏览 5提问于2017-05-16得票数 1
回答已采纳
1回答
我刚刚加入了堆栈溢出论坛，因为我正在努力解决使用VBA在Excel中锁定行的问题。
最基本的是，需要做的是，当一行被填满时，它会自动锁定自己，以免在将来被更改。
我使用了以下代码：
N = Target.Row
If Intersect(Target, Range("H:H")) Is Nothing Then Exit Sub
If Not Target.Value >= 1 Then Exit Sub
ActiveSheet.Unprotect
Range("A" & N & ":K" & N).Locked =
浏览 6提问于2015-01-09得票数 0
我已经录制了一个宏，并希望选择活动的单元格，但是当我在录制宏时选择控件A时，它会列出宏中的实际单元格，但是我希望此宏在不同范围的文档上运行。
ActiveSheet.Range("$A$1:$AB$6442")
同样，当我想跳到最后一行并点击more向下箭头时，它会指出它在我的宏上向下的行，我如何才能让这个宏在可能有更多行的电子表格上工作？
Selection.End(xlDown).Select
Range("A6443").Select
非常感谢
浏览 1提问于2018-08-13得票数 1
我必须使用Uipath中的VBA来更改excel中的行高。我必须在VBA代码中传递一个变量，该变量包含我必须更改高度的行位置。 我只能写这样的静态代码。 Sub i()
With Worksheets("Sheet2").Rows("1")
.RowHeight = 19.5
End With
End Sub 在这里，我需要使用invoke VBA活动通过uipath中的变量来传递动态定位的行。
浏览 51提问于2020-07-27得票数 1
回答已采纳
是否可以使用VBA创建在指定范围内选择最后一个活动单元格的宏？例如，如果我定义的范围是A1:A10，我选择A2，然后随机地在我以前定义的范围之外选择几个单元格，如何使用VBA返回到A2？此外，如果在我重新选择了A2，现在又转到了A5之后，我将如何使用宏返回到A5呢？
已尝试的代码：
Sub PreviousCell()
Dim PrevCell As Range
Range("A2").Select
Set PrevCell = ActiveCell
Range("A1").Select
MsgBox "Previous cell was " &
浏览 1提问于2021-11-28得票数 0
回答已采纳
如何使用单元格值填充VBA中的范围？
在本例中，我希望复制一个选择，并将其粘贴到基于单元格L2的值的行中，其中行号与L2值相同。
我理解的最后一行代码是不正确的，但是找不出一个合适的解决方案，例如选择B100:K100。
Set Rng1 = Range("L2").Value
Range("B2:K2").Select
Selection.Copy
Range("B" & Range(Rng1) : "K" & Range(Rng1).Select
提前感谢
浏览 0提问于2015-08-13得票数 0
我需要使用VBA.I将这些数据对齐到Excel中的行。我有大量这种格式的数据。我需要把它排成行
SUBSCRIBER DETAILS
IMSI MSISDN STATE
405845001382775 919085919027 IDLE
DATE TIME CELLID
130103 122725 404-29-12906-15353
IMEI
356395024630200
SUBSCRIBER DETAILS
IMSI
浏览 0提问于2013-01-05得票数 0
我有一个包含两个日期列的表。为简单起见，我们使用and "in date“和"out date”。我想筛选该表以查看任一列中某一日期的活动。
使用标准的autofilter，它将执行filter，其中"in date“和"out date”都是它将显示的日期。如果"in date“或"out date”= user date，我不知道该怎么做。当任一日期与所选日期相同时，我要筛选表格行。因此，显示包含指定日期的所有行。
有没有人能帮上忙呢？我正在尝试做这个VBA代码，以便用户可以非常简单的工作表。
浏览 1提问于2017-08-18得票数 0
1回答
我最近写了一些代码，获取事件最近五次发生的日期和时间，并将其粘贴到我在另一个工作表上运行的数据表中。
我正在尝试使用自动筛选方法来帮助我挑选出要粘贴的结果。从下面的代码中可以看到，在应用过滤器之后，我告诉VBA查找最后一行，然后偏移-4行，然后选择活动行及其下面的所有行。但是，它也会考虑隐藏的行。
有没有什么方法可以让excel只使用我的过滤器的结果来偏移-4行？我尝试使用SpecialCells方法，但是它只选择了表中的每一行，这并不是我想要的。我想要的就是让VBA能够考虑到与我的过滤器一致的行来偏移行。
'Update Cidade de Marica
Worksheets(&#
浏览 0提问于2019-11-12得票数 0
基本上，我希望将两个单元格中的值组合起来，然后在单击按钮后在另一个新单元格中显示它。棘手的部分是每次输入新值时，它应该显示在下一行。例如，我将组合来自A1和B1的值并将其传递给C1。下次我再次输入A1和B1时，新值应该传递给C2。下面是我编写的代码：
Private Sub CommandButton2_Click()
Dim count As Integer
Dim rowNo As String
Dim val As String
Dim val2 As String
Dim sum As String
count = 1
rowNo = "C" + CStr(
浏览 2提问于2013-12-21得票数 0
回答已采纳
我真的需要帮助，找出我的excel vba有什么问题。这里完全是初学者。
基本上，vba代码将对工作表进行“筛选”。奇怪的是，当对其他类别进行筛选时，vba可以工作。但是在一个类别中，它只给出了运行时错误1004 (对象_worksheet失败的方法范围)。
调试模式将始终指向代码行：
Range(Mid(rangeToHide, 1, 199)).Select
以下是代码：
Private Sub cboPopulateDept_Change()
Dim sh As Worksheet
Dim rw As Range
Dim RowCount As Integer
Dim rangeToHi
浏览 3提问于2017-10-24得票数 3
我有一个用于某些计算的不同数字的代码表。我需要根据顶部行的第一个值来选择整个列。我能够根据范围选择整个列，但是是否有一个VBA查找函数来查找其中指定的值，并与定义的单元格范围中的值进行比较，并允许我们复制整个列？以下是我迄今所做的工作：
Columns("F:F").Select
Selection.Copy
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
假设我有一个名为"string1“的值，所以在我的示例中，"string1”位于地址"F1“中，这就是为什么我复制了&#
浏览 2提问于2021-07-07得票数 1
回答已采纳
我对VBA非常陌生，所以这可能有点基础。我有一个宏，它从工作表“工作表”中复制一系列单元格，并将它们粘贴到工作表"FCTC“中的活动行中。宏还插入新行，因此新粘贴的信息不会写入任何现有数据。我认为我的问题是范围复制到活动的单元格参考粘贴，但我不确定。我已经张贴了下面的代码。任何帮助都将不胜感激。
`Private Sub CommandButton1_Click()
Application.Goto ActiveWorkbook.Sheets("Working Sheet").Range("A1:AQ7")
Selection.Copy
浏览 0提问于2019-07-10得票数 3
回答已采纳
1回答
我有一个MATLAB代码，它创建了一个大型的单元格数组，我正在使用VBA的MLGetVar函数输入到Excel中。MATLAB代码还提供了标题/标题行的列表。我希望能够获取在MATLAB中生成的行列表，并使用它们在Excel中指定行，这样我就可以更改整个行的格式(例如，标题2)。
我尝试过几种将MATLAB值引入VBA的方法，但没有取得任何成功：
在MATLAB中，我有一系列数字：example = [12,24,60]
我试图获取这些数字并使用它们来指定VBA范围：
MLGetVar "example", VBAVariable
Dim variable As String
浏览 5提问于2015-09-02得票数 0
回答已采纳
1回答
我正在处理一个项目，该项目要求我将HTML文件中的图表存储添加到excel中。MS web浏览器Active X控件不允许我添加web浏览器。如果我使用VBA这样做，它会给我一些与不显示活动内容相关的错误。请在这方面给我一些帮助。我在VBA中使用过IE对象，但它在IE中打开了HTML文件。
浏览 95提问于2020-03-11得票数 1
1回答
我有一个包含账单日期的‘账单’(A10:B50)范围，有些账单是在同一天支付的，所以结尾处有重复和空白。我有一个范围'Consolidated‘(D10:E30)，它将日期和账单金额合并到单个条目中。当我点击“Consolidated”中的日期时，它会使用条件格式突出显示账单范围内的各个条目。我使用以下内容来获取我正在单击的日期：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Range("C40").Formula = "=" & Target.
浏览 10提问于2017-07-01得票数 1
回答已采纳
1回答
有没有一种方法可以在VBA中获得所有行的数组，然后将它们复制到新的工作表中？
我假设正确的属性是rows(index).Hidden，但是我不确定如何使用它。
有什么简单的方法吗？我的问题主要是我不能将某些东西设为行。
浏览 2提问于2011-06-15得票数 1
回答已采纳
1回答
我是一个完全的VBA初学者，这是我第一次接触VBA。我的项目很简单--一个严重依赖于依赖下拉列表的用户表单。我看了一大堆视频，写了(更像是复制-粘贴的)代码，这些代码实际上运行得很好。我的问题是，我需要编辑我的代码的一部分，以添加一个功能，我很难在上面找到视频(试错编辑只能让我走到这一步)。在当前状态下，我的表单有两个下拉列表，从一个工作表中绘制信息，其中数据按如下所示的列排列： 商品ID |商品|类别 用户选择一个类别，然后根据先前的选择过滤项目列表。我现在需要重新排列这些列，添加另一个列，使其成为第一层选择，如下所示： 位置|类别|物品ID |物品 仅仅重新排列列就会破坏我的代码。在此基
浏览 14提问于2021-05-04得票数 0
1回答
我是VBA的新手(也是Stackoverflow的)，我需要帮助。我希望复制一个包含许多数据的表，并将其粘贴到另一本书中(来自D2列)。
这个表从A到F，行是未知的，因为它们每天都在变化。
以下是我的代码不起作用：
Windows(" PERIMETRE.xlsx").Activate
Range("A:F").Select
Selection.Copy
Windows("OP_COMMERCIALES.xlsm").Activate
Sheets("DETAIL").Select
Range(&
浏览 1提问于2021-09-10得票数 0
回答已采纳
1回答
如何在VBA中点击"li“的内文？rhef是动态的。我有3个页面，当表单加载时，页面默认是1，，我必须单击2个页面。我已经粘贴了下面的代码，当我一步一步地看到，行正在通过循环，并传递行"difHTMLA.Click“，但它既没有抛出错误，也没有重新加载页面。请帮帮忙
Set difHTMLAs = doc.getElementsByTagName("li")
For Each difHTMLA In difHTMLAs
If difHTMLA.getAttribute("classname") = "swfPagi
浏览 0提问于2019-07-18得票数 1
我正在寻找一种方法来存储对选择的引用。我似乎创建了一个变量，如：
dim tSelect as Selection
Set tSelect = Selection
并创建一个对活动选择对象的引用。如果我更改选择而不运行任何代码(例如，在DoEvents类型循环期间)，则选择变量无需调用更新：
Set tSelect = Selection
我需要创建一个变量来保存对所选内容的静态引用，然后我需要能够更改选择，而不会丢失对先前选定文本的引用。
Range对象不能工作。我需要能够使用ctrl键选择一个不一定彼此接近的段落列表。
当使用此方法选择段落时，选择对象仅显示段落的最后“组”(例如，如果选择
浏览 3提问于2014-07-09得票数 1
回答已采纳
1回答
我正在尝试用vba解决excel表格中的一个相当基本的问题，但我找不到答案……
我在一个时间表上工作，这是从一个布尔值为真或假的其他excel表动态填充。命名区域在excel中称为"A“，包含布尔值True或False。每一列代表一个可能的开始时间。每一行代表一个不同的拼贴，有一个开始小时和一个结束小时。每一行可以没有值(整行= False =拼贴处于休假状态)，或者该行可以在同一行中的不同单元格上有两个值TRUE，分别表示开始小时和结束小时。我想要实现的是一行一行地查找两个布尔值的TRUE。如果找到了，第一个和第二个True之间的单元格应该是黄色的。
我可以在命名范围内循环查找特定值
浏览 3提问于2017-08-31得票数 0
4回答
是否可以复制一系列行并将这些行粘贴到其他工作表中？我已经尝试过了，但是我得到了1004错误： .Rows(i_cls_frst_row, i_cls_last_row).Copy 关于Michał
浏览 24提问于2016-08-24得票数 1
回答已采纳
3回答
再次感谢您阅读我的问题。我正在列范围中输入一个日期，我注意到使用以下方法输入的两个日期在格式上存在差异。方法1:我有一个定制的用户表单，可以在中看到的活动单元中输入日期
方法2:我一起使用Cntrl+：来输入日期。
我虽然有相同的单元格格式，但我注意到两个日期的不同，这是我在excel中使用LEN公式调查的。
LEN给我的日期05.08.2021为10，方法1和方法2，LEN是5。在下一步，我使用这个日期来导出日历周数字，因为在两个方法中有差异，我得到错误使用方法1，它与方法2很好地工作。很可能是因为方法1持有一个非常长的s值，因为在我的日历周vba中，我有这个数字作为整数，我得到了错误。
谢
浏览 6提问于2021-08-05得票数 0
嗨，我正在尝试将VBA中的一行插入到Excel表中，到目前为止我读到的所有内容都会导致我认为下面的代码应该工作，它失败了，如下所述。
当我查看打开的文档时，它实际上选择了相关的单元格A7。
Dim xlx As Object, xlw As Object, xls As Object, xlc As Object
' Establish an EXCEL application object
On Error Resume Next
Set xlx = GetObject(, "Excel.Application")
If E
浏览 2提问于2016-04-18得票数 0
回答已采纳
我需要该程序返回用户在excel vba中选择的第一行的ActiveCell.Row编号。
我试过了，但有时它会显示活动单元格的最后一行，而不是第一行。
有人知道怎么解决这个问题吗？
另外，有没有代码只显示用户选择的范围？例如，如果他们选择范围G3:G10，它将返回G3:G10。
因为我现在得到用户选择的第一行，然后计算他们选择了多少行，这样就可以计算出用户选择。
浏览 4提问于2015-01-11得票数 0
1回答
我想知道是否有可能从Excel VBA宏中当前删除的行中获取数据？我发现Worksheet_Change中的Target是在已删除行之后获得焦点的新活动行。有没有可能我可以访问刚刚删除的行，以便从中获取一些信息？
谢谢!
浏览 0提问于2019-08-02得票数 0
我有一段VBA代码，它从一个扩展表中获取数据，并将其格式化为一个输入文件。这段代码循环遍历每个列标题，以确保它能够找到它寻找的列，然后用一个值进行偏移，以从标题行中提取数据，然后将数据复制到另一个模板中。
但是，这个表由多个用户使用，填充的行数量可能会有所不同，因此我已经设置了一个名为rowcount的变量。在本例中，我正在处理5条记录，因此我尝试选择从活动单元格到行计数值(5)的范围，但我只停留在以下一行：
ActiveSheet.Range(ActiveCell, RowCount).Select
下面是这个部分的完整代码，我知道我做的是错误的，但是任何通过Google搜索的结果都会显示出
浏览 8提问于2018-06-01得票数 2
回答已采纳
1回答
我正在尝试编写一个vba来隔离一行特定的单元格。到目前为止，我的代码已经把我带到了一个活动的单元格中，从这里我被困住了。
我需要的单元格将始终是行的第三个非空白/空单元格。活动单元和所需单元之间是空白单元，两个无关的非空白/空单元。它们之间的间距不是固定的，所以我无法抵消一定数量的单元格。我已经得到了一定程度的帮助，但我现在被困住了，任何帮助都会得到极大的认可！
i = 1
For Each cell In ws.Rows(ActiveCell.Row).Cells
If Not IsEmpty(cell) = True Then i = i + 1
If i = 4
浏览 3提问于2019-06-13得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
