内容是一些题目,一千多行,设置了自动换行,因为题干长短不同,所以有的是一行,有的两行,有的三行。自动调整的行高看起来有点挤,所以想调整一下,比如一行字的行高20,两行字的行高35这样,整个表格完全无规律可循,一点一点调整太费事,有没有好一点的方法可以批量调整?这种自动换了几行字的单元格能不能定位呢?
åªè½ç¨ä»£ç äºï¼å·¥ä½è¡¨ç¾ä¸ç¹å»å³é®ï¼âæ¥ç代ç âï¼å°ä¸æ¹ä»£ç ç²è´´å°éè¦è°æ´è¡é«çå·¥ä½è¡¨å¯¹åºç代ç åºï¼ç¹å»ç»¿è²è¿è¡æé®å³å¯ã
Sub Test()
For r = 1 To ActiveSheet.UsedRange.Rows.Count
Rows(r & ":" & r).RowHeight = Rows(r & ":" & r).RowHeight + 5
Next
End Sub