Option Explicit
Sub 刪除()
Sheets("表單回應輸入區").UsedRange.Offset(1, 0).EntireRow.Delete
'↑工作表中有使用儲存格範圍往下偏移1列的範圍所在的列 整列刪除
End Sub
Sub 向下填滿()
Dim C&, A$
'↑宣告變數:C是長整數變數,A是字串變數
C = [表單回應輸入區!C65536].End(3).Row
'↑令C這長整數變數是工作表裡C欄最後一個有內容儲存格列號
If C < 2 Then Exit Sub
'↑如果C變數小於 2(代表C欄沒有填入學生資料)!就結束程式執行
A = "'C:\每學期更新\[常用資料(學生+導師).xlsx]111-2學生資料'"
'↑令A這字串變數是"~~~"字串
Range([表單回應輸入區!A2], Cells(C, "A")).Formula = "=C2&D2"
'↑令工作表裡[A2]到 A欄第C變數列儲存格的公式是 "=C2&D2"
Range([表單回應輸入區!F2], Cells(C, "F")).Formula = _
"=VLOOKUP($A2," & A & "!$A$1:$G$2100,5,FALSE)"
'↑令工作表裡[F2]到 F欄第C變數列儲存格的公式是 "~~~~~"
End Sub
===================================
按刪除鈕結果:
[attach]35965[/attach]
