UC知道excel vba代码解释
来源：百度知道 编辑：UC知道 时间：2024/06/15 22:31:12
Private Sub CommandButton1_Click()
With Worksheets("二维表")
.Range("B2:B" & .Range("B65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks) = Worksheets("观察表").Range("B2")
End With
End Sub
这段代码如何理解？
With Worksheets("二维表")
.Range("B2:B" & .Range("B65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks) = Worksheets("观察表").Range("B2")
End With
End Sub
这段代码如何理解？
Range("B65536").End(xlUp).Row '返回B列的最后一个有数据单元格所在的行号，例如100
Range("B2:B" & .Range("B65536").End(xlUp).Row) '选中从B2开始到最后一个有数据单元格的区域范围，例如("B2:B100")
SpecialCells(xlCellTypeBlanks) '选中某区域中的空白单元格
整段代码的意思是：将"观察表"中B2单元格的数据粘贴到"二维表"B列中的所有空单元格中（作用范围从B2开始到B列最后一个有数据的单元格）。
Private Sub CommandButton1_Click()
With Worksheets("二维表")
.Range("B2:B" & .Range("B65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks) = Worksheets("观察表").Range("B2")
End With
End Sub
代码有个问题：应该是下面的代码吧
Private Sub CommandButton1_Click()
With Worksheets("二维表")
.Range("B2:B" & .Range("B65536").End(xlUp)).SpecialCells(xlCellTypeBlanks) = Worksheets("观察表").Range("B2")
End With
End Sub
具体表示：把"观察表"内单元格B2的值填入"二维表" B2到（从B65536单元格往上数最后一个有值的单元格）单元格之间空单元格内。
结果是