怎么在每一个excel表里最后的地方,添加一个相同的备注,急求

发布网友发布时间：2022-04-30 08:45

共5个回答

热心网友时间：2022-06-20 01:59

先用宏判断每张表资料的最后位置，然后添加备注：
Sub AddCommentX()
For Each c In Worksheets
c.Select
Dim TargetCell As Range
Set TargetCell = Cells(1, 1).SpecialCells(xlLastCell)
With TargetCell.Offset(2, 0)
.FormulaR1C1 = "此处为备注储存格"
.AddComment
.Comment.Visible = False
.Comment.Text Text:="Your Name:" & Chr(10) & "Hello, This is testing"
End With
Next c
End Sub

热心网友时间：2022-06-20 01:59

选中一个备注好的表格，把鼠标放在此表格的右下脚。此时会出现一个" ┙"符号。此时用鼠标点住它向下拉就可以了。

热心网友时间：2022-06-20 02:00

什么最后的地方？每个表的最后的地方都一样么？
如果实在不行可以用vba解决

热心网友时间：2022-06-20 02:01

设置页尾。具体如何设置页尾，请在百度文库找吧

热心网友时间：2022-06-20 02:01

你可以插入标注呀