range(cells(1,1),cells(5,5)).select追问
我不想指定具体一个单元格区域，就是编写一个程序后对于任意矩阵，我都可以求出来，
追答说过了呀 其中的1,1 5,5 都可以用变量来表示。
本回答被网友采纳range("a1").resize(4,6).select追问
我不想指定具体一个单元格区域，就是编写一个程序后对于任意矩阵，我都可以求出来，
本回答被提问者采纳在EXCEL里怎样用VBA选择矩形区域的单元格
range(cells(1,1),cells(5,5)).select
在excel表格中使用vba引用单元格区域
1、首先我们打开一个工作样表作为例子。2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Option Explicit Sub Random()Dim myRange As Range Dim rng As Range '设置对单元格区域的引用 Set myRange = Worksheets(Sheet1).Range(A1:D5)Set rng = Worksheets(S...
excel2003 如何用VBA编程选定若干单元格区域?
第一种方法：Ctrl+G调出定位对话框，在【引用位置】处输入A1:E5000，点击【确定】即可。第二种方法：在程序左上角的【名称框】处输入A1:E5000，然后回车即可。第三种方法：在单元格区域中选中任意一个单元格，按Ctrl+Shift+*即可选定单元格所在整个区域。第四种方法：按Ctrl+End跳转到区域最右下角单...
用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选择某一列包含相同数据的矩形区域并分别把它粘贴...
呵呵.给你个建议,使用宏录制,在工具菜单里选择宏,录制 然后你就去选择一个区域,再然后就点另一个sheet,在里边选择你要粘贴的区域粘贴,然后停止录制.再进visual basic编辑器里边,找你录制的宏,研究一下就OK了,很简单的.
Excel 如何使用VBA在指定区域中选择单元格后,自动填充颜色,二次点选...
Set g = Intersect(Target, Range("A1:N36")) '获取交集区域g If g Is Nothing Then Exit Sub '如果交集为空则退出sub If g.Count > 1 Then '如果g区域包含多个单元格 g.Interior.Color = xlNone '那么设置g的背景色为无色 Else '否则,即g只有一个单元格 If g.Interior.Color = vbRed...
excel vba 如何去掉单元格中的空格
要清除Excel单元格中的空格，可以使用VBA编写一个简单的宏来实现。首先，你需要在工作表上插入一个控制按钮，这里以矩形形状为例。点击“插入”菜单，选择“形状”，然后画出所需的按钮。接下来，切换到VBA编辑器，可以通过按Alt + F11快捷键实现。在新的窗口中，点击“插入”->“模块”，粘贴以下代码...
excel利用VBA选择活动单元格所在的数组区域
如果在某个区域中输入了相同的数组公式，选择其中某一部分单元格进行修改时，Excel将提示“不能更改数组的某一部分”，这时需要选择全部的数组进行修改。当活动单元格在数组区域中时，可以用下面的VBA代码选择当前整个数组区域，并且在状态栏中给出提示信息。Public Sub SelectArray()Dim Msg As String On...
excel中VBA里,给一个不固定区域命名,并引用这个区域中的单元格该怎么...
Range("A1:D9").Select ActiveWorkbook.Names.Add Name:="abc", RefersToR1C1:="=Sheet1!R1C1:R9C4"
如何使用VBA代码将EXCEL中一部分区域的单元格进行从小到大排序,并填...
因为截图不全，我这里先假设数据区为A1:F9, 填充区为H1:M9 代码如下：Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim arr1(1 To 54), arr2(1 To 54)Dim x, y, z As Integer Dim b, c Dim a As Variant z = 1 x = 1 y = 1 c = 1 For x = 1 To 9 For...
