For mIndex= 1 To ActiveSheet.UsedRange.Row
For nIndex= 1 To ActiveSheet.UsedRange.Columns.Count
MessageBox ActiveSheet.UsedRange.Cells(mIndex,nIndex)
Next
Next
For mIndex= 1 To ActiveSheet.UsedRange.Row
For nIndex= 1 To ActiveSheet.UsedRange.Column
MessageBox ActiveSheet.UsedRange.Cell(mIndex,nIndex)
Next
Next
大概就这样吧