根据数据最后一行有数据将以上的行高设置固定值25

cherga

能否通过VBA设置功能：根据最后一行（A列至AD列）有一数据就将以上的行高设置固定值25，即在第25行有一个数据，然后将除表头以外 从第4行开始到第25行的行高设置为25高度，并添加框线
另外能否将这些VBA也设置这样 只判断到有数据那行即可，而不用把所有的取值范围都运行一遍，造成文件变大。
1、文本单元格转常规
2、一键调整文本格式 （录制宏）
3、体检数据数值化（将公式转化为数值或文字）
万分感谢

cherga

求大家帮帮忙

liulang0808

楼主的这些需求，使用录制宏自己先处理下。有问题再逐一咨询吧

cherga

liulang0808 发表于 2019-10-4 20:18
楼主的这些需求，使用录制宏自己先处理下。有问题再逐一咨询吧

关键是要自动以最后一行有数据为准，但是录制宏没办法这样

liulang0808

cherga 发表于 2019-10-4 20:26
关键是要自动以最后一行有数据为准，但是录制宏没办法这样

如果是某一列，考虑使用下end
如果是表格使用区域，使用usedrange变通
具体看楼主要怎么处理了，

cherga

liulang0808 发表于 2019-10-4 20:30
如果是某一列，考虑使用下end
如果是表格使用区域，使用usedrange变通
具体看楼主要怎么处理了，

那我试试。

syj2004hg

录制宏修改下

1. Sub SetBorders()
   
2.     Dim rng As Range
   
3.     With ActiveSheet
   
4.         Set rng = .Range(.Cells(4, 1), .Cells(.UsedRange.Rows.Count, "AD"))
   
5.         With rng.Borders(xlEdgeLeft)
   
6.             .LineStyle = xlContinuous
   
7.             .ColorIndex = xlAutomatic
   
8.             .TintAndShade = 0
   
9.             .Weight = xlThin
   
10.         End With
    
11.         With rng.Borders(xlEdgeTop)
    
12.             .LineStyle = xlContinuous
    
13.             .ColorIndex = xlAutomatic
    
14.             .TintAndShade = 0
    
15.             .Weight = xlThin
    
16.         End With
    
17.         With rng.Borders(xlEdgeBottom)
    
18.             .LineStyle = xlContinuous
    
19.             .ColorIndex = xlAutomatic
    
20.             .TintAndShade = 0
    
21.             .Weight = xlThin
    
22.         End With
    
23.         With rng.Borders(xlEdgeRight)
    
24.             .LineStyle = xlContinuous
    
25.             .ColorIndex = xlAutomatic
    
26.             .TintAndShade = 0
    
27.             .Weight = xlThin
    
28.         End With
    
29.         With rng.Borders(xlInsideVertical)
    
30.             .LineStyle = xlContinuous
    
31.             .ColorIndex = xlAutomatic
    
32.             .TintAndShade = 0
    
33.             .Weight = xlThin
    
34.         End With
    
35.         With rng.Borders(xlInsideHorizontal)
    
36.             .LineStyle = xlContinuous
    
37.             .ColorIndex = xlAutomatic
    
38.             .TintAndShade = 0
    
39.             .Weight = xlThin
    
40.         End With
    
41.     End With
    
42. End Sub

复制代码

cherga

liulang0808 发表于 2019-10-4 20:30
如果是某一列，考虑使用下end
如果是表格使用区域，使用usedrange变通
具体看楼主要怎么处理了，

但设置字体格式就没办法了，有的列设置宋体11号，有的（不相邻的两列）设置某个字体14号，要分开，没办法这样设置

liulang0808

cherga 发表于 2019-10-4 20:41
但设置字体格式就没办法了，有的列设置宋体11号，有的（不相邻的两列）设置某个字体14号，要分开，没办法 ...

那么就逐列去设置啊

cherga

syj2004hg 发表于 2019-10-4 20:34
录制宏修改下

但是行高没有改变 要哪改下