vba获取最后一行一列，复制粘贴特定一列的值

Sub CheckNum()
iCount = 0

iRow = ActiveSheet.Range("s65535").End(xlUp).Row                         '取最后一行
iCol = ActiveSheet.Range("dz2").End(xlToLeft).Column              '取最后一列
MsgBox "iRow为： " & iRow
MsgBox "iCol为： " & iCol
    For m = 0 To iRow
         For j = 0 To iCol                                              '列循环
       
          If ActiveSheet.Cells(m, j) = "●" Then
             ActiveSheet.Cells(m, j) = Range("S" & m)
            
             iCount = iCount + 1
          End If
       Next
   Next

MsgBox "处理数值为： " & iCount
End Sub

转载于:https://blog.51cto.com/5456032/1656400