如圖僚纷,由于工作實際需要嫂便,希望在備注框內(nèi)添加批注楼熄。但如果手動添加批注的話忆绰,在表格特別多的情況下這無疑會導致工作效率比較低下,因此可岂,不妨嘗試用excel內(nèi)置語言來批量生成批注的方法错敢。
step1:按住Alt+F11,調(diào)出“開發(fā)工具”菜單欄缕粹,點擊“Visual Basic",彈出”Microsoft Visual Basic“稚茅。
step2:單擊”插入-模塊“,在新的窗口內(nèi)輸入以下代碼:
Sub 批注()
Dim i, myrow As Integer
myrow = [a65536].End(xlUp).Row
For i = 2 To myrow
Cells(i, 4).ClearComments
Cells(i, 4).AddComment
Cells(i, 4).Comment.Text Text:="手機號:" & Cells(i, 3).Value
Cells(i, 4).Comment.Visible = False
Next
End Sub
step3:返回需要添加批注的工作表平斩,單擊”宏“亚享,彈出如下對話框,選擇相應的宏代碼绘面,再確定即可欺税。
step4:考慮到執(zhí)行的對象一樣,因此揭璃,采用”with……end with“的形式簡化以上代碼晚凿。代碼簡化形式如下:
Sub 批注()
Dim i, pizhu As Integer
pizhu = [a5200].End(xlUp).Row
For i = 2 To pizhu
With Cells(i, 4)
.ClearComments
.AddComment
.Comment.Text Text:="手機號:" & Cells(i, 3).Value
.Comment.Visible = False
End With
Next
End Sub
step5:最后,得到的結果如下所示瘦馍。