想法是將合并單元格的內容轉換為注釋或評論。我找到了這段代碼
'Convert Cell Content to Comment
Sub ConvertToComment()
Dim C As Range
For Each C In Selection
C.ClearComments
If Len(C.Value) > 0 Then
C.AddComment
C.Comment.Text C.Value & ""
End If
'Optional: Delete cell content after converting
C.ClearContents
Next C
End Sub
但這不適用于合并的單元格。應用時會彈出錯誤 400。請幫忙解決一下？
uj5u.com熱心網友回復：
我可能是錯的，但我相信你的問題出C.ClearContents在線路上。
也許試試這個...
'Convert Cell Content to Comment
Sub ConvertToComment()
Dim C As Range
For Each C In Selection
C.ClearComments
If Len(C.Value) > 0 Then
C.AddComment
C.Comment.Text C.Value & ""
End If
'Optional: Delete cell content after converting
C.Value = ""
Next C
End Sub
...它具有基本相同的效果，應該可以完成這項作業。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/398066.html
上一篇：Excel：列數等于單元格值
下一篇：將陣列復制到多個范圍