VBA- 设置指定列的文字对齐方式(遍历指定列，获取最后一行非空单元格行号)

Sub isColInfo(sheet As Worksheet)Dim LastRow As IntegerDim arrCol As VariantarrCol = Array("C", "D", "E") '等下需要遍历、修改C、D、E列，并修改这几列除加粗文字(表头)外的文字对齐方式For k = 0 To UBound(arrCol)'获取最后一行非空单元格的行号LastRow = ActiveSheet.Cells(Rows.Count, arrCol(k)).End(xlUp).Row'判断最后一行的行号是否大于0If LastRow > 0 ThenFor i = 1 To LastRow'判断这个单元格是否为空If Cells(i, arrCol(k)) <> "" Then'判断这个单元格的字体是否加粗，如果没加粗，则进行后续操作If Cells(i, arrCol(k)).Font.Bold = False ThenApplication.DisplayAlerts = False  '禁止弹窗提示，因为修改合并单元格字体内容时会有弹窗提示'设置这个单元格字体：水平左对齐，垂直居中对齐，行高设为33With Cells(i, arrCol(k)).HorizontalAlignment = xlLeft.VerticalAlignment = xlCenter'垂直顶部对齐'.VerticalAlignment = xlTop.RowHeight = 33End WithEnd IfEnd IfNext iEnd IfNext k
End Sub

VBA- 设置指定列的文字对齐方式(遍历指定列，获取最后一行非空单元格行号)相关推荐

PyQt5 QPushButton 设置文字对齐方式（基于setStyleSheet）
PyQt5 QPushButton 设置文字对齐方式(基于setStyleSheet) 创建一个QPushButton(文本默认居中对齐) import sys from PyQt5.QtWidget ...
JXL导出EXCEL合并单元格、文字对齐方式 .
public void createNoLotteryAlarmExcel(String filePath,String fileName,List<NoLotteryAlarm> ala ...
JXL导出EXCEL合并单元格、文字对齐方式
这次能做出来,主要是感谢各位在网上提供的资料,在此记录导出的结果是,大家看哈,若有可取之处可继续代码比较多,大家主要看哈我用红色标注部分即可 --------------------------- ...
AUTOCAD——调整十字光标、CAD表格文字对齐方式
CAD如何调整十字光标? 执行方式 1.输入自定义设置命令"OPTIONS"(快捷键:OP),按下空格键. 自定义设置 2.在弹出的选项界面中,打开显示页面,选择页面中的" ...
Canvas 文字对齐方式
Canvas 文字对齐方式常用的画文字的方法 public void drawText (String text, float x, float y, Paint paint) x,y 并不是指定文 ...
指定结构体字节对齐方式
指定结构体字节对齐方式 #pragma pack(push,1) typedef struct { int b; char a; }struct_t1; #pragma pack(pop)
第2章第22节：文字对齐：常用的文字对齐方式 [PowerPoint精美幻灯片实战教程]
本节演示常见的文字对齐方式,首先选择需要操作的文字. 点击文字居中图标,可以将所选文字居中对齐. 接着选择另一组文字. 点击文字居中图标,将所选文字居中对齐. 继续选择第三组文字. 点击文本两端对齐图 ...
删除单元格_VBA（实验1）用VBA 删除某列空单元格的3种方法：删除法，转移到其他列方法，数组方法...
1 要解决的问题:删除某列中的空单元格/空行暂时只实现了删除一列中的空行,并没有实现多行的判断空行和删除方法.----之后再做更复杂的 1.1 需求分析用VBA删除如下内容,解决思路都不同删除1 ...
POI以SAX方式解析Excel2007大文件(包含空单元格的处理) Java生成CSV文件实例详解...
http://blog.csdn.net/l081307114/article/details/46009015 http://www.cnblogs.com/dreammyle/p/5458280. ...

VBA- 设置指定列的文字对齐方式(遍历指定列，获取最后一行非空单元格行号)

VBA- 设置指定列的文字对齐方式(遍历指定列，获取最后一行非空单元格行号)相关推荐

最新文章

热门文章