求助：如何在这段代码里把“收购者和公司名称加粗，日期和联系方式设为居中？-知识树投稿区-ExcelHome技术论坛

2023-7-1 09:44 关注

Dim arr, b
arr = [B1].CurrentRegion
b = UBound(arr) + 1
Cells(b, 2) = "收购者盖章或签名："
Cells(b, 4) = "福建***有限公司"
Cells(b + 1, 2) = "开具日期："
Cells(b + 1, 3) = "=TODAY()"
Cells(b + 1, 4) = "联系方式："
Cells(b + 1, 5) = "18******86"