在WORD中如何用vba宏语言

话题：在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 怎样获取每页第一行

问题详情：C列单元格的值,怎么 表示。

回答：For i=1 To 3 With Worksheets("sheet" & i).PageSetup .LeftHeader=Worksheets("sheet" & i).Cells(1, 3) End With Next 以上 码是把sheet1---sheet3表的C3单元格的内容设置成本页页眉的左页眉内容 .RIGHTHeader 为右,以此类推

参考回答：你先按类别排序,然后在每个类别前用VBA 入分页符和表头就行了,不需要获取每页第一行

话题：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中怎样 表示整 表格中有数据的最后一个单元格的行和列

回答：activesheet.usedrange.specialcells(xlcelltypelastcell).address 这是完整 .row .column 这两个就是行、列

话题：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")

话题：vba 中我想将,RABNG(a i : u i)表示为循环所有的行,请问这

问题详情：vba 中我想将,RABNG(a i : u i)表示为循环所有的行,请问这个 i

回答：单元格表示没有错,错在 IF 和 For 相互交叉了,NEXT 应在 End If 之前。不过你的 码写得太复杂了,完全可精简一些

参考回答：i=i+1不要,next i next ws