请教

liuchang815813 · 发表于 2024-2-20 17:34

本帖最后由 liuchang815813 于 2024-2-20 17:35 编辑

在最后一列写入数据，用Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select只能用A列最后一行为空白行，如果是其他列为最后一行应该怎样表示？还有一个请问一下日期行怎样能合并居中。

liulang0808 · 发表于 2024-2-21 07:46

单元格合并居中，可以录制宏，然后参考代码
Range("b" & Rows.Count).End(xlUp).Offset(1, 0).Select 就是第二列，修改列标即可

taller · 发表于 2024-2-21 09:14

tanglf188 · 发表于 2024-2-21 09:22

非空尾行：countrow = Sheet1.UsedRange.Cells(Sheet1.UsedRange.Rows.Count, 1).Row
非空尾列：countcol = Sheet1.UsedRange.Cells(1, Sheet1.UsedRange.Columns.Count).Column
非空尾单元格：Sheet1.Cells.Find("*”,SearchDirection:=2)
                        Sheet1.Columns("A:Z").Find("*”,SearchDirection:=2)
                        Sheet1.Cells.Find("*", , , , , 2)
                        Sheet1.Columns("A:Z").Find("*", , , , , 2)
自己挑一个合适的吧

		自动登录	找回密码
密码			免费注册