VBA中如何选中单元格所在行中的相应数据区域
如果当前数据区域是A1:D50,当前单元格是A5，请问如何用VBA代码选中A5:D5这块区域。当然数据区域及当前单元格都是变化的.
感谢1楼的回答。
但我的当前数据区域是变化的,有可能是A1:E40
2楼选中的是整个数据区域，但我只要当前单元格所在行的数据区域就行了。
Selection.CurrentRegion.Select
Happy new year and GoodLuck!
VBA中如何选中单元格所在行中的相应数据区域
假定你在1列数据中，要定位位数最大的字符单元格1.数据在a列2.在b列用公式=len(a1)，然后拖动复制公式3.在c1用=max(b:b)，找到最大位数4.在d1用=match(c1,b:b,0)，找到最长字符串所在的位置
VBA中如何选中单元格所在行中的相应数据区域
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, Range("IV" & ActiveCell.Row).End(xlToLeft).Column)).Select
用Excel地VBA怎么样获取指定区域单元格里面地所有数据
使用for each遍历所选择的单元格即可。如下代码将选择区域的单元格输出在立即窗口。Sub Get_Data()Dim myRange As RangeDim myCell As RangeSet myRange = Application.InputBox("选择区域", Type:=8)For Each myCell In myRangeDebug.Print myCell.ValueNextEnd Sub ...
excel利用VBA选择活动单元格所在的数组区域
如果在某个区域中输入了相同的数组公式，选择其中某一部分单元格进行修改时，Excel将提示“不能更改数组的某一部分”，这时需要选择全部的数组进行修改。当活动单元格在数组区域中时，可以用下面的VBA代码选择当前整个数组区域，并且在状态栏中给出提示信息。Public Sub SelectArray()Dim Msg As String On...
excel中用VBA提取某一个单元格内包含某关键字符串的一行内容前的整数...
答：右键工作表标签，选择查看代码，复制下面代码进去。然后可以在B列输入关键字，就会得到结果。Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell As Range Dim TempStr As String On Error Resume Next If Target.Column = 2 Then Set Cell = Cells(Target.Cells(1...
vba中如何提取用户所选的若干个单元格内的数据?
Dim A()A = Selection.Value通过上述代码，二维数组A(）就是所选单元格区域内的数据，数组的两个维度上都以1为下边界的。注：对于选择多重区域的情部，上述代码仅能取得第一个区域内的数据，如果选择的是多重区域，则要复杂一些，代码如下：Dim a As Range, b()Set a = SelectionReDim b(1 ...
VBA中如何取得行号和列号如何选定这一范围的值
Cells(1, 1), Cells(r, c)).Select '选定 A2:B5 单元格区域 Range(Range("A2"), Cells(r, c)).Select '选定 A3:B5 单元格区域 Range([A3], Cells(r, c)).Select '选定 B5右下方（含B5） 共2行3列 的 单元格区域，即 B5:D6 [B5].Resize(2, 3).Select '……End Sub ...
如何通过vba获取当前单元格所在行和列
想要通过VBA获取当前单元格所在行和列，可以使用如下的函数：Function rc_test(a)On Error Resume Next rc_test = a.Row & "\/" & a.Column End Function 在使用此函数时，只需要传入当前单元格作为参数即可。函数将返回一个字符串，其中包含当前单元格所在的行号和列号，格式为“行号\/列号”。
excel中怎样用VBA把一列数据中与某个单元格对应的数调出来?
ALT+F11打开VBA，插入模块，粘贴以下代码，F5运行。Sub test()Dim j, k As Integer Sheet1.Activate j = Range("a65535").End(xlUp).Row For i = j To 1 Step -1 hv = Cells(i, 8)If hv = 6 Then Cells(j - k, 9) = Cells(i, 1)Cells(j - k, 10) = Cells(i, 2)Cel...
excel中如何通过VBA获取指定范围内鼠标所点击的单元格所在的行数?
在对应工作表中粘贴以下代码（不要新建模块！！！）Private Sub Worksheet_SelectionChange(ByVal Target As Range)If (Target.Column >= 2 Or Target.Column <= 8) And Target.Row = 1 Then '选定B1:H1时 Range("A1") = Target.Row 'A1显示选定的行数 Range("A2") = Target...
