Sub DoWhileDemo() Do While ActiveCell.value Empty ActiveCell.value = ActiveCell.value * 2 ActiveCell.offset(1, 0).Select Loop End Sub ...
www.google.com.tw