VBA获取区域的起始行、结束行

最新推荐文章于 2023-08-28 15:42:59 发布

ribut9225

最新推荐文章于 2023-08-28 15:42:59 发布

阅读量4.1k

点赞数

分类专栏： VBA

本文链接：https://blog.csdn.net/ribut9225/article/details/118961696

版权

本文介绍如何利用VBA的Range.MergeArea属性获取Excel单元格所在合并区域的起始行和结束行。通过Range.Address属性可以得到区域的宏语言表示，进一步解析此字符串以确定范围细节。

摘要由CSDN通过智能技术生成

用到的属性

Range.MergeArea，返回 Range 对象，代表包含指定单元格的合并的范围。如果指定的单元格不在合并的范围内，则该属性返回指定的单元格。只读。Variant类型。

Range.Address，以宏语言返回区域引用。String 类型，只读。如：：$A$3:$A$10

o_xls.Visible = TRUE
o_xls.WindowState = -4140  //最小化

o_WorkBook = o_xls.Workbooks.Open(ls_FileName)

o_sheet = o_WorkBook.Sheets(4)	//应付账款表

ll_RowCount = o_sheet.UsedRange.Rows.Count

//ls_Msg = ""
//ls_dyg = "A3"
//
//o_Range = o_sheet.Range(ls_dyg).MergeArea
//
//ls_AddRess = o_Range.Address		//返回区域的范围：$A$3:$A$10
//
//wf_Get_Range_AddRess(ls_AddRess,ll_StartRow,ll_EndRow)	//解析起始行号、结束行号的字符串
//
获取起始行
//ls_Msg = ls_Msg + "起始行：" + String(ll_StartRow) + " ; " 
//
//ls_Msg = ls_Msg + "结束行：" + String(ll_EndRow) +  "~r~n"
//


//IF o_sheet.Range("A3").MergeCells = TRUE