返回列表 上一主題 發帖

參照Y欄找到X欄空白的位置

Sub Ex()
     With Sheet1
     c = (Month(Date)) * 3 + 1
      .Cells(.Cells(65536, c).End(3).Row + 1, c - 1).Select
      End With
End Sub

TOP

        靜思自在 : 不要隨心所欲,要隨心教育自己。
返回列表 上一主題