作者:乔山办公网日期:
返回目录:excel表格制作
x=activecell.row
y=activecell.column
与整个工作表的第一列表示方法一样,但抄对象是Selection,而不是Sheets,如Selection.Columns(1).Select就是选择Selection中的第一列,以下图为例:
运行宏袭test后的效果就是选择区域中的第一列。
知识扩展:
要选择区域中第几行第知同列的单元格也和工作表道一样,如表示选定区域的第2行第2列,可以用Selection.Cells(2,2),也可以用Selection.Range("B2")。
示例代码:
Sub gvntw()
With Selection.Range("B2")
.Value = "我是选区的B2"
.Font.Color = vbRed
.Interior.Color = vbYellow
End With
End Sub
运行效果如下图:
没有必要用”宏“这么高大上的东西,”替换“就可以完成任务吧。
1、打开Excel表格,按“Alt+F11”打开“Microsoft Visual Basic”点击“插入”→“模块”。
2、复制下列代码粘贴到“zd模块”中,粘贴完成后关闭“模块窗口”和“Microsoft Visual Basic”窗口。
版 Sub 宏1()
For i = 1 To 50
Selection.EntireRow.Insert
ActiveCell.Offset(2, 0).Range("A1").Select
Next i
3、回到Excel表格中点权击菜单栏“工具”→“宏(M)”→“宏(M)”
4、选择“宏1”在点击“执行”即可。
5、用“宏”执行后的Excel表格已在内容中插入多列行。