vba选择有数据的区域？ vba选择指定工作表
- 在EXCEL中使用VBA代码选择区域
- excel vba 选定变化区域
- VBA程序如何获得鼠标所选区域，然后对所选区域进行操作。
- EXCEL VBA 我想选择A列中有数据的最后一行的单元格。怎样用VBA代码写入，谢谢大家！
在EXCEL中使用VBA代码选择区域
去百度文库，查看完整内容>
内容来自用户:jqzhblue
目录
1)如何选择当前工作表中的单元格？
2)如何选择同一工作簿中其它工作表上的单元格？
3)如何选择不同工作簿中的单元格？
4)如何选择当前工作表中的单元格区域？
5)如何选择同一工作簿中另一工作表上的单元格区域？
6)如何选择不同工作簿中工作表上的单元格区域？
7)如何在当前工作表中选择命名区域？
8)如何选择同一工作簿中另一工作表上的命名区域？
9)如何选择不同工作簿中工作表上的命名区域？
10)如何选择与当前单元格相关的单元格？
11)如何选择与另一单元格(不是当前单元格)相关的单元格？
12)如何选择偏离指定区域的一个单元格区域？
13)如何选择一个指定的区域并扩展区域的大小？
14)如何选择一个指定的区域，再偏离，然后扩展区域的大小？
15)如何选择两个或多个指定区域？
16)如何选择两个或多个指定区域的交叉区域？
17)如何选择连续数据列中的最后一个单元格？
18)如何选择连续数据列底部的空单元格？
19)如何选择某列中连续数据单元格区域？
20)如何选择某列中非连续数据单元格区域？
21)如何选择一个矩形(规则的)单元格区域？
22)如何选择多个不同长度的非连续列？
23)引用工作表上的所有单元格
24)使用A1表示法引用单元格和区域
25)引用行和列
26)使用索引号引用单元格
27)使用快捷表示法引用单元格
28)使用Range对象引用单元格
29)引用命名区域
30)引用多个区域
31)处理三维区域
-----------------------------------------------
excel vba 选定变化区域
Sub bb()
Set book1 = Workbooks("book1.xls")
Set book2 = Workbooks("book2.xls")
With book1.Sheets("sheet1")
endrow = .Range("d65535").End(xlUp).Row
For i = endrow To 1 Step -1
If Range("d" & i) <> 0 Then
erow = i
Exit For
End If
Next
'以上代码找到最后一个非零值
If d1 <> 0 Then
.Range("A1:d" & erow).Copy _
Workbooks("Book2.xls").Sheets("sheet2").Range("A1")
'book1的sheet1的A1：d?复制到book2的sheet2
book1.Sheets("sheet3").Range("A1:d" & erow).Copy _
book2.Sheets("sheet6").Range("A1")
'book1的sheet3的A1：d?复制到book2的sheet6
book1.Sheets("sheet4").Range("A1:d" & erow).Copy _
book2.Sheets("sheet7").Range("A1")
'book1的sheet4的A1：d?复制到book2的sheet7
book1.Sheets("sheet5").Range("A1:c" & erow).Copy _
book2.Sheets("sheet8").Range("A1")
'book1的sheet5的A1：C?复制到book2的sheet8
book1.Sheets("sheet8").Range("A1:d" & erow).Copy _
book2.Sheets("sheet11").Range("A1")
'book1的sheet8的A1：C?复制到book2的sheet11
End If
End With
'
End Sub
'以上代码属通用性
VBA程序如何获得鼠标所选区域，然后对所选区域进行操作。
您好，
在 Excel VBA 中，通过 Selection 对象可以方便的获得当前活动窗口的选区，以下代码演示了如何获取当前选区的地址。
1
2
3
SubGetSelection()
MsgBox Selection.Address, vbOKOnly, "鼠标选区的地址"
EndSub
获取到选区之后就可以调用其属性、方法进行操作了。
EXCEL VBA 我想选择A列中有数据的最后一行的单元格。怎样用VBA代码写入，谢谢大家！
Sub Macro5()
[A65536].End(xlUp).Offset(1, 0).Activate
End Sub