用VBA语言怎么表示-小知识

话题：用VBA语言怎么 表示?

回答：当前 表为SHEET1目标 表为SHEET2 域为 A1:B10 粘贴到SHEET2的A3 SUB 粘贴() Range("A1:B10").Copy Sheets("Sheet2").Select Sheets("Sheet2").Range("A3").Select ActiveSheet.Paste END SUB

话题：在WORD中如何用vba宏语言,

回答：With Selection '移动当前光标到第N行,如要选定当前行,则下一句不需要 .GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=N '选定光标所在行: .Expand Unit:=wdLine '删除选定内容: .Delete End With

话题：vba中能这样表示吗:range(1,1)或cells("A1").如不能,那应

回答：用Cells(行,列) 表示单一单元格 用Range(Cells(行1, 列1), Cells(行2, 列2)) 表示一个 域

话题：VBA RANGE 中如何用变量来表示第几行?如:表示第四行用

问题详情：如果用Range(cells(4,1),cells(4,256))表示,有时候会出现“应用程

回答：用rows不行么? Dim i As Integer i=Cells(1, 1).Row Rows(i).Select

话题：Excel 在vba中怎么 表示当前行或单元格

回答：ActiveCell 类型Range, 当前的 单元格所以ActiveCell.Row 就是当前行ActiveCell.Column 就是当前列

参考回答：ActiveCell=1 Selection=1

话题：VBA for循环中,怎样 表示某行

问题详情：For I=6 To 1000 If Cells(I, 10)="无" Then Range("?:?").Se

回答：录制一个宏一看就知道了,编写宏要多看系统录制的内容。另外这里不要使用 Select 选择,不然宏的运行会很慢的,直接删除就可以了。如果想看到动态结果,可以适当的时候选择一下,让视图转到运行得行,但是不要太多。

话题：VBA 表示位置不确定连续的行

问题详情：我不会vba。想在 簿里根据实际需要,选择位置不确定的连续

回答：使用 vba 使单元格变色方法1. 同时按 alt+F11 进入 vba 码 页面,依次菜单 “ 入” “模块”,把下面 码 进去Private Sub 涂色 ()Selection.Interior.ColorIndex=3End Sub回到 excel 界面,依次菜单 “视图” “工具栏” 选择“窗体”复选框,出现窗体工具栏选择窗体工具栏中第四个按钮(复选框前面一个),再到 excel 界面单击下,出现按钮一个,并立即 出指定宏对话框选择刚刚建立的宏 码涂色即可下面就是选定一个 域,单击此按钮试试,是你想要的结果吧

参考回答：这样比宏快,也不用每次开机还得选择是否执行宏,即使按你的意思也需要在这样的位置加一个按钮来执行这个宏,何必呢!

话题：用VBA语言怎么 表示?

回答：Sub copytest()dim i&For i=1 To Sheets(2).Rows.Count '循环表2的所有行 If Sheets(2).Range("A" & i)="" Then ’从上到下判断单元格A1是否为空 ’如果为空,则把表1的单元格A1:D10 到表2的空行和相同范围的单元格内 Sheets(1).Range("A1:D10").Copy Sheets(2).Range("A" & i) Exit For '结束循环 End IfNextEnd Sub

参考回答：workbooks("1.xls").sheets(1).range("a1:a100").copy workbooks("2.xls").sheets(1).range("a1")

话题：在WORD中如何用vba宏语言,表示删除一行,或选定一行?

回答：选择一行的VBA语句为 Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend 删除一行的VBA语句为 Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.Delete Unit:=wdLine

话题：excel的vba中,有两个变量a、b,如何用表达式表示将a到b行

问题详情：如当a=3,b=时,选中3到行;当a=4,b=10时,选中4到10行。

回答：range(a & ":" & b).select