Best answer: Hi Plexus, The following code will work for your sample data: Sub RunMe() Dim lRow, x As Integer Sheets("Sheet1").Select lRow = Range("A1").
確定! 回上一頁