EXCEL 自動加入表格

請問各位前輩，我想要利用核取方塊將需要的內容勾選，如圖1中第3、4列勾選，點選右邊的"加入主表格"按鈕後，
讓這兩列表格內的文字自動加到"主表格"中，請問是否有辦法實現呢？

樓主熱帖

sschristy

中學生 Rank: 2

帖子: 25
主題: 3
精華: 0
積分: 51
點名: 0
作業系統: Windows 11 專業版
軟體版本: OFFICE 365
閱讀權限: 20
性別: 女
註冊時間: 2023-2-14
最後登錄: 2023-12-26

2^#

發表於 2023-10-3 14:15 | 顯示全部帖子

回復 2# Andy2483

抱歉，請問該如何上傳EXCEL檔案？

TOP

sschristy

中學生 Rank: 2

帖子: 25
主題: 3
精華: 0
積分: 51
點名: 0
作業系統: Windows 11 專業版
軟體版本: OFFICE 365
閱讀權限: 20
性別: 女
註冊時間: 2023-2-14
最後登錄: 2023-12-26

3^#

發表於 2023-10-5 15:08 | 顯示全部帖子

感謝大大回覆，目前等級仍太低，無法貼檔案，會努力提升等級，謝謝

TOP

sschristy

中學生 Rank: 2

帖子: 25
主題: 3
精華: 0
積分: 51
點名: 0
作業系統: Windows 11 專業版
軟體版本: OFFICE 365
閱讀權限: 20
性別: 女
註冊時間: 2023-2-14
最後登錄: 2023-12-26

4^#

發表於 2023-10-6 16:40 | 顯示全部帖子

Public wst As String
Public j As Integer
Sub test()
Dim i As Integer
For i = 4 To 9999
If (Sheets("主表格").Range("A" & i) = "" And Sheets("主表格").Range("B" & i) = "") Then
Sheets("主表格").Range("B" & i) = Sheets(wst).Range("B" & j)
Sheets("主表格").Range("C" & i) = Sheets(wst).Range("C" & j)
Sheets("主表格").Range("E" & i) = Sheets(wst).Range("D" & j)
Sheets("主表格").Range("F" & i) = Sheets(wst).Range("E" & j)
Sheets("主表格").Range("G" & i) = Sheets(wst).Range("F" & j)
Exit For
Else
End If
Next i
Sheets("主表格").Activate
End Sub
------------------------------------------------------------------------

Private Sub CommandButton1_Click()
wst = "參考表1"
j = ActiveCell.Row
Application.Run "Module1.test"
End Sub
-------------------------------------------------------
前輩大大，這是按鈕內的程式碼，目前的方式是被選取到的那一行就會自動加入到主表格
但想要更改為可以批次加入，不知有沒有好方法，謝謝

TOP

sschristy