示例需求:原始数据如下图所示,药名的字数不相同,每个汉子的拼音顺序保存在C列至G列。
现在需要将数据整理为如下3列的格式。
示例代码如下。
Sub demo()Dim res()cnt 1arr Sheet1.[a1].CurrentRegion.ValueFor i 2 To UBound(arr)bFi…
Worksheet.UsedRange 属性 返回一个 Range 对象,该对象表示指定工作表上所使用的区域 Sub 已使用区域() Sheet1.UsedRange.Select End Sub
小结: 1.usedrange自动计算已用区域的所有值 2.不用当数据增加时的处理问题。 3.比selection方便,但…