求助公式或者vba或者其他

这个要用VBA才能实现

如果判断A1是否为加粗可以用到宏表函数
=get.cell(20,a1)
http://baike.baidu.com/link?url=exPE6KSS6C9pAbILuLvIefK8ze48cTrHBwYdgkfWzucp97zr0QI5YspkaKNQjLo1w1VnlZI19UOswIhCavrBhq
但是也同时设置其他字体为加粗就要vba了

Sub 跟着加粗()
Dim r As Long
r = Range("d65536").End(xlUp).Row
For i = 1 To r Step 1
If Cells(i, 3).Font.Bold = True Then
Cells(i, 4).Font.Bold = True
End If
Next i
End Sub

Sub 跟着加粗()
Dim r As Long
r = Range("a65536").End(xlUp).Row
For i = 1 To r Step 1
If Cells(i, 1).Font.Bold = True Then
Rows(i).Font.Bold = True
Cells(i, 3).Cut Cells(i, 4)
End If
Next i
End Sub