excel 自动添加批注

发布网友 发布时间：2022-04-29 15:28

我来回答

共2个回答

热心网友 时间：2023-10-15 12:27

'给所有满足条件的单元格添加批注
Sub 添加批注()
Dim I, J, X, Y As Long
Cells.ClearComments
X = ActiveCell.SpecialCells(xlLastCell).Row
Y = ActiveCell.SpecialCells(xlLastCell).Column
For I = 2 To X Step 2: For J = 1 To Y
Cells(I, J).Select
Selection.AddComment
Selection.Comment.Text Cells(I - 1, J) & vbCrLf & Cells(I, J)
Next J: Next I
End Sub追问呵，试过，是差不多这样子的。
还有一点是：我想
例如表如下
A B
日期数量
4月12日1235
4月12日1236
4月13日1237
我希望：在B列相应行的的备注里有：4月12日 1235张
最好是：
在我下次再收到东西时，如：4月13日 100张。
批注栏里又会添加：4月12日 1235张
4月13日 100张。
大侠，有没有这种宏？
请赐教！
谢谢！

追答是指所有的批注只添加的B1和D1中？后面不需要
Sub 添加批注()
Dim I, X As Long
Cells.ClearComments
X = ActiveCell.SpecialCells(xlLastCell).Row
Cells(2, 2).Select
Selection.AddComment
For I = 2 To X
Selection.Comment.Text Selection.Comment.Text & Cells(I, 1) & " " & Cells(I, 2) & vbCrLf
Next I
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.ScaleHeight X / 5 - 0.2, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Visible = False

Cells(2, 4).Select
Selection.AddComment
For I = 2 To X
Selection.Comment.Text Selection.Comment.Text & Cells(I, 3) & " " & Cells(I, 4) & vbCrLf
Next I
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.ScaleHeight X / 5 - 0.2, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Visible = False
End Sub

热心网友 时间：2023-10-15 12:27

可以参考以下宏代码
Sub TEST()
Dim rng As Range
Dim rng1 As Range
Set rng1 = Range("b2:f5")
rng1.ClearComments
For Each rng In rng1
If rng <> "" Then
rng.AddComment
rng.Comment.Visible = False
rng.Comment.Text Text:=Cells(1, rng.Column).Text
End If
Next
End Sub----
工具-宏-VB编辑器

热心网友 时间：2023-10-15 12:27

'给所有满足条件的单元格添加批注
Sub 添加批注()
Dim I, J, X, Y As Long
Cells.ClearComments
X = ActiveCell.SpecialCells(xlLastCell).Row
Y = ActiveCell.SpecialCells(xlLastCell).Column
For I = 2 To X Step 2: For J = 1 To Y
Cells(I, J).Select
Selection.AddComment
Selection.Comment.Text Cells(I - 1, J) & vbCrLf & Cells(I, J)
Next J: Next I
End Sub追问呵，试过，是差不多这样子的。
还有一点是：我想
例如表如下
A B
日期数量
4月12日1235
4月12日1236
4月13日1237
我希望：在B列相应行的的备注里有：4月12日 1235张
最好是：
在我下次再收到东西时，如：4月13日 100张。
批注栏里又会添加：4月12日 1235张
4月13日 100张。
大侠，有没有这种宏？
请赐教！
谢谢！

追答是指所有的批注只添加的B1和D1中？后面不需要
Sub 添加批注()
Dim I, X As Long
Cells.ClearComments
X = ActiveCell.SpecialCells(xlLastCell).Row
Cells(2, 2).Select
Selection.AddComment
For I = 2 To X
Selection.Comment.Text Selection.Comment.Text & Cells(I, 1) & " " & Cells(I, 2) & vbCrLf
Next I
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.ScaleHeight X / 5 - 0.2, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Visible = False

Cells(2, 4).Select
Selection.AddComment
For I = 2 To X
Selection.Comment.Text Selection.Comment.Text & Cells(I, 3) & " " & Cells(I, 4) & vbCrLf
Next I
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.ScaleHeight X / 5 - 0.2, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Visible = False
End Sub

热心网友 时间：2023-10-15 12:27

可以参考以下宏代码
Sub TEST()
Dim rng As Range
Dim rng1 As Range
Set rng1 = Range("b2:f5")
rng1.ClearComments
For Each rng In rng1
If rng <> "" Then
rng.AddComment
rng.Comment.Visible = False
rng.Comment.Text Text:=Cells(1, rng.Column).Text
End If
Next
End Sub----
工具-宏-VB编辑器

热心网友 时间：2023-10-15 12:27

'给所有满足条件的单元格添加批注
Sub 添加批注()
Dim I, J, X, Y As Long
Cells.ClearComments
X = ActiveCell.SpecialCells(xlLastCell).Row
Y = ActiveCell.SpecialCells(xlLastCell).Column
For I = 2 To X Step 2: For J = 1 To Y
Cells(I, J).Select
Selection.AddComment
Selection.Comment.Text Cells(I - 1, J) & vbCrLf & Cells(I, J)
Next J: Next I
End Sub追问呵，试过，是差不多这样子的。
还有一点是：我想
例如表如下
A B
日期数量
4月12日1235
4月12日1236
4月13日1237
我希望：在B列相应行的的备注里有：4月12日 1235张
最好是：
在我下次再收到东西时，如：4月13日 100张。
批注栏里又会添加：4月12日 1235张
4月13日 100张。
大侠，有没有这种宏？
请赐教！
谢谢！

追答是指所有的批注只添加的B1和D1中？后面不需要
Sub 添加批注()
Dim I, X As Long
Cells.ClearComments
X = ActiveCell.SpecialCells(xlLastCell).Row
Cells(2, 2).Select
Selection.AddComment
For I = 2 To X
Selection.Comment.Text Selection.Comment.Text & Cells(I, 1) & " " & Cells(I, 2) & vbCrLf
Next I
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.ScaleHeight X / 5 - 0.2, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Visible = False

Cells(2, 4).Select
Selection.AddComment
For I = 2 To X
Selection.Comment.Text Selection.Comment.Text & Cells(I, 3) & " " & Cells(I, 4) & vbCrLf
Next I
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.ScaleHeight X / 5 - 0.2, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Visible = False
End Sub

热心网友 时间：2023-10-15 12:27

可以参考以下宏代码
Sub TEST()
Dim rng As Range
Dim rng1 As Range
Set rng1 = Range("b2:f5")
rng1.ClearComments
For Each rng In rng1
If rng <> "" Then
rng.AddComment
rng.Comment.Visible = False
rng.Comment.Text Text:=Cells(1, rng.Column).Text
End If
Next
End Sub----
工具-宏-VB编辑器

热心网友 时间：2023-10-15 12:27

'给所有满足条件的单元格添加批注
Sub 添加批注()
Dim I, J, X, Y As Long
Cells.ClearComments
X = ActiveCell.SpecialCells(xlLastCell).Row
Y = ActiveCell.SpecialCells(xlLastCell).Column
For I = 2 To X Step 2: For J = 1 To Y
Cells(I, J).Select
Selection.AddComment
Selection.Comment.Text Cells(I - 1, J) & vbCrLf & Cells(I, J)
Next J: Next I
End Sub追问呵，试过，是差不多这样子的。
还有一点是：我想
例如表如下
A B
日期数量
4月12日1235
4月12日1236
4月13日1237
我希望：在B列相应行的的备注里有：4月12日 1235张
最好是：
在我下次再收到东西时，如：4月13日 100张。
批注栏里又会添加：4月12日 1235张
4月13日 100张。
大侠，有没有这种宏？
请赐教！
谢谢！

追答是指所有的批注只添加的B1和D1中？后面不需要
Sub 添加批注()
Dim I, X As Long
Cells.ClearComments
X = ActiveCell.SpecialCells(xlLastCell).Row
Cells(2, 2).Select
Selection.AddComment
For I = 2 To X
Selection.Comment.Text Selection.Comment.Text & Cells(I, 1) & " " & Cells(I, 2) & vbCrLf
Next I
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.ScaleHeight X / 5 - 0.2, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Visible = False

Cells(2, 4).Select
Selection.AddComment
For I = 2 To X
Selection.Comment.Text Selection.Comment.Text & Cells(I, 3) & " " & Cells(I, 4) & vbCrLf
Next I
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.ScaleHeight X / 5 - 0.2, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Visible = False
End Sub

热心网友 时间：2023-10-15 12:27

'给所有满足条件的单元格添加批注
Sub 添加批注()
Dim I, J, X, Y As Long
Cells.ClearComments
X = ActiveCell.SpecialCells(xlLastCell).Row
Y = ActiveCell.SpecialCells(xlLastCell).Column
For I = 2 To X Step 2: For J = 1 To Y
Cells(I, J).Select
Selection.AddComment
Selection.Comment.Text Cells(I - 1, J) & vbCrLf & Cells(I, J)
Next J: Next I
End Sub追问呵，试过，是差不多这样子的。
还有一点是：我想
例如表如下
A B
日期数量
4月12日1235
4月12日1236
4月13日1237
我希望：在B列相应行的的备注里有：4月12日 1235张
最好是：
在我下次再收到东西时，如：4月13日 100张。
批注栏里又会添加：4月12日 1235张
4月13日 100张。
大侠，有没有这种宏？
请赐教！
谢谢！

追答是指所有的批注只添加的B1和D1中？后面不需要
Sub 添加批注()
Dim I, X As Long
Cells.ClearComments
X = ActiveCell.SpecialCells(xlLastCell).Row
Cells(2, 2).Select
Selection.AddComment
For I = 2 To X
Selection.Comment.Text Selection.Comment.Text & Cells(I, 1) & " " & Cells(I, 2) & vbCrLf
Next I
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.ScaleHeight X / 5 - 0.2, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Visible = False

Cells(2, 4).Select
Selection.AddComment
For I = 2 To X
Selection.Comment.Text Selection.Comment.Text & Cells(I, 3) & " " & Cells(I, 4) & vbCrLf
Next I
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.ScaleHeight X / 5 - 0.2, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Visible = False
End Sub

热心网友 时间：2023-10-15 12:27

可以参考以下宏代码
Sub TEST()
Dim rng As Range
Dim rng1 As Range
Set rng1 = Range("b2:f5")
rng1.ClearComments
For Each rng In rng1
If rng <> "" Then
rng.AddComment
rng.Comment.Visible = False
rng.Comment.Text Text:=Cells(1, rng.Column).Text
End If
Next
End Sub----
工具-宏-VB编辑器

热心网友 时间：2023-10-15 12:27

'给所有满足条件的单元格添加批注
Sub 添加批注()
Dim I, J, X, Y As Long
Cells.ClearComments
X = ActiveCell.SpecialCells(xlLastCell).Row
Y = ActiveCell.SpecialCells(xlLastCell).Column
For I = 2 To X Step 2: For J = 1 To Y
Cells(I, J).Select
Selection.AddComment
Selection.Comment.Text Cells(I - 1, J) & vbCrLf & Cells(I, J)
Next J: Next I
End Sub追问呵，试过，是差不多这样子的。
还有一点是：我想
例如表如下
A B
日期数量
4月12日1235
4月12日1236
4月13日1237
我希望：在B列相应行的的备注里有：4月12日 1235张
最好是：
在我下次再收到东西时，如：4月13日 100张。
批注栏里又会添加：4月12日 1235张
4月13日 100张。
大侠，有没有这种宏？
请赐教！
谢谢！

追答是指所有的批注只添加的B1和D1中？后面不需要
Sub 添加批注()
Dim I, X As Long
Cells.ClearComments
X = ActiveCell.SpecialCells(xlLastCell).Row
Cells(2, 2).Select
Selection.AddComment
For I = 2 To X
Selection.Comment.Text Selection.Comment.Text & Cells(I, 1) & " " & Cells(I, 2) & vbCrLf
Next I
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.ScaleHeight X / 5 - 0.2, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Visible = False

Cells(2, 4).Select
Selection.AddComment
For I = 2 To X
Selection.Comment.Text Selection.Comment.Text & Cells(I, 3) & " " & Cells(I, 4) & vbCrLf
Next I
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.ScaleHeight X / 5 - 0.2, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Visible = False
End Sub

热心网友 时间：2023-10-15 12:27

可以参考以下宏代码
Sub TEST()
Dim rng As Range
Dim rng1 As Range
Set rng1 = Range("b2:f5")
rng1.ClearComments
For Each rng In rng1
If rng <> "" Then
rng.AddComment
rng.Comment.Visible = False
rng.Comment.Text Text:=Cells(1, rng.Column).Text
End If
Next
End Sub----
工具-宏-VB编辑器

热心网友 时间：2023-10-15 12:27

'给所有满足条件的单元格添加批注
Sub 添加批注()
Dim I, J, X, Y As Long
Cells.ClearComments
X = ActiveCell.SpecialCells(xlLastCell).Row
Y = ActiveCell.SpecialCells(xlLastCell).Column
For I = 2 To X Step 2: For J = 1 To Y
Cells(I, J).Select
Selection.AddComment
Selection.Comment.Text Cells(I - 1, J) & vbCrLf & Cells(I, J)
Next J: Next I
End Sub追问呵，试过，是差不多这样子的。
还有一点是：我想
例如表如下
A B
日期数量
4月12日1235
4月12日1236
4月13日1237
我希望：在B列相应行的的备注里有：4月12日 1235张
最好是：
在我下次再收到东西时，如：4月13日 100张。
批注栏里又会添加：4月12日 1235张
4月13日 100张。
大侠，有没有这种宏？
请赐教！
谢谢！

追答是指所有的批注只添加的B1和D1中？后面不需要
Sub 添加批注()
Dim I, X As Long
Cells.ClearComments
X = ActiveCell.SpecialCells(xlLastCell).Row
Cells(2, 2).Select
Selection.AddComment
For I = 2 To X
Selection.Comment.Text Selection.Comment.Text & Cells(I, 1) & " " & Cells(I, 2) & vbCrLf
Next I
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.ScaleHeight X / 5 - 0.2, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Visible = False

Cells(2, 4).Select
Selection.AddComment
For I = 2 To X
Selection.Comment.Text Selection.Comment.Text & Cells(I, 3) & " " & Cells(I, 4) & vbCrLf
Next I
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.ScaleHeight X / 5 - 0.2, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Visible = False
End Sub

热心网友 时间：2023-10-15 12:27

可以参考以下宏代码
Sub TEST()
Dim rng As Range
Dim rng1 As Range
Set rng1 = Range("b2:f5")
rng1.ClearComments
For Each rng In rng1
If rng <> "" Then
rng.AddComment
rng.Comment.Visible = False
rng.Comment.Text Text:=Cells(1, rng.Column).Text
End If
Next
End Sub----
工具-宏-VB编辑器

热心网友 时间：2023-10-15 12:27

可以参考以下宏代码
Sub TEST()
Dim rng As Range
Dim rng1 As Range
Set rng1 = Range("b2:f5")
rng1.ClearComments
For Each rng In rng1
If rng <> "" Then
rng.AddComment
rng.Comment.Visible = False
rng.Comment.Text Text:=Cells(1, rng.Column).Text
End If
Next
End Sub----
工具-宏-VB编辑器

热心网友 时间：2023-10-15 12:27

'给所有满足条件的单元格添加批注
Sub 添加批注()
Dim I, J, X, Y As Long
Cells.ClearComments
X = ActiveCell.SpecialCells(xlLastCell).Row
Y = ActiveCell.SpecialCells(xlLastCell).Column
For I = 2 To X Step 2: For J = 1 To Y
Cells(I, J).Select
Selection.AddComment
Selection.Comment.Text Cells(I - 1, J) & vbCrLf & Cells(I, J)
Next J: Next I
End Sub追问呵，试过，是差不多这样子的。
还有一点是：我想
例如表如下
A B
日期数量
4月12日1235
4月12日1236
4月13日1237
我希望：在B列相应行的的备注里有：4月12日 1235张
最好是：
在我下次再收到东西时，如：4月13日 100张。
批注栏里又会添加：4月12日 1235张
4月13日 100张。
大侠，有没有这种宏？
请赐教！
谢谢！

追答是指所有的批注只添加的B1和D1中？后面不需要
Sub 添加批注()
Dim I, X As Long
Cells.ClearComments
X = ActiveCell.SpecialCells(xlLastCell).Row
Cells(2, 2).Select
Selection.AddComment
For I = 2 To X
Selection.Comment.Text Selection.Comment.Text & Cells(I, 1) & " " & Cells(I, 2) & vbCrLf
Next I
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.ScaleHeight X / 5 - 0.2, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Visible = False

Cells(2, 4).Select
Selection.AddComment
For I = 2 To X
Selection.Comment.Text Selection.Comment.Text & Cells(I, 3) & " " & Cells(I, 4) & vbCrLf
Next I
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.ScaleHeight X / 5 - 0.2, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Visible = False
End Sub

热心网友 时间：2023-10-15 12:27

可以参考以下宏代码
Sub TEST()
Dim rng As Range
Dim rng1 As Range
Set rng1 = Range("b2:f5")
rng1.ClearComments
For Each rng In rng1
If rng <> "" Then
rng.AddComment
rng.Comment.Visible = False
rng.Comment.Text Text:=Cells(1, rng.Column).Text
End If
Next
End Sub----
工具-宏-VB编辑器