vba选择有数据的区域？ vba选择指定工作表

去百度文库,查看完整内容> 内容来自用户:jqzhblue 目录1)如何选择当前工作表中的单元格?2)如何选择同一工作簿中其它工作表上的单元格?3)如何选择不同工作簿.

Sub bb()Set book1 = Workbooks("book1.xls")Set book2 = Workbooks("book2.xls")With book1.Sheets("sheet1")endrow = .Range("d65535").End(xlUp).RowFor i .

你好!选择区域为Selection所表示的范围,如果选中的是表格的话,可以将该范围赋值给一个Range对象或者数组,然后进行自定义操作.打字不易,采纳哦!

range(＂A65536＂).end(xlup).offset(1)'A列有数据的最后一个单元格下一个 range(＂A65536＂).end(xlup)'指A列最后一个有数据的单元格 你要写入最后的下一行就用第一个 要替换最后一个有数据的单元格就用后一个.

这个不用获取什么行号,你可以用resize重新扩大选择的区域 比如你选定了a1:a8然后想把b1:b8一起合并,vba代码如下:Sub test() activesheet.Range(＂a1:a8＂).Resize(, 2).merge End Sub

Sub 判断合并单元格() Dim Rng As Range For Each Rng In Selection If Rng.MergeCells = True Then MsgBox ＂选定的区域中包含合并单元格＂ Exit For End If Next MsgBox ＂选定区域中没有合并单元格＂ End Sub 先选定一个单元格区域,然后执行该VBA

方法1:先用printarea 设置打印区域,然后再打印.这种设置将会保存到excel文件中.比如:worksheets(＂sheet1＂).pagesetup.printarea = ＂$a$1:$c$5＂ worksheets(＂sheet1＂).printout 方法2:直接打印指定区域,而不修改打印区域设置.比如 worksheets(＂sheet1＂).range(＂$a$1:$c$5＂).printout

有两种方法可以建立窗口来实现录入数据. 一种是选择你要录入数据的区域,再通过菜单“工具”->“记录单”,EXCEL就会弹出一个数据录入窗体. 第二种方法是按“ALT+F11”进入VBA编辑器,在这里,你可以插入一个用户窗体,这个可能对没有接触过编程的人来说有些复杂,但功能确实比前一种方法要强劲得多了. 答题不易,互相理解,您的采纳是我前进的动力.

先用 dim union() 定义一个空数组 确定里面内容多少后再用 redim union(**,**)指定

指定行的最后非空行号: I = Range(＂A65536＂).End(xlUp).Row指定列的最后非空列号: I = Range(＂IV4＂).End(xlToLeft).Column