返回列表 上一主題 發帖

EXCEL 自動加入表格

EXCEL 自動加入表格

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

2.png
2023-10-2 15:31

回復 1# sschristy


    謝謝前輩發表此主題與情境
建議上傳個範例
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

回復 2# Andy2483


   抱歉,請問該如何上傳EXCEL檔案?

TOP

回復 3# sschristy


    http://forum.twbts.com/viewthread.php?tid=34&extra=page%3D1
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

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

TOP

我也是積分不足無法發文,目前每天努又簽到中 XD

TOP

回復 1# sschristy


    猜測情境:
以篩選出需求資料加入主表格
20231006.zip (21.7 KB)


Option Explicit
Sub 加入主表格()
Dim Crr(1 To 100, 1 To 6), Q, i&, j%, A, n&
Dim sh1 As Worksheet, sh2 As Worksheet, Frng As Range
For Each Q In Worksheets
   If Q.[F1] = "建議廠牌" Then Set sh1 = Q
   If Q.[G3] = "建議廠牌" Then Set sh2 = Q
Next
A = Array(1, 2, 4, 5, 6)
With sh1: .Activate
   If .AutoFilter Is Nothing Then
      .[A2].AutoFilter
      With ActiveWindow
         .FreezePanes = False: .SplitRow = 1: .FreezePanes = True
      End With
   End If
   If .[B65536].End(3).Row = 1 Then MsgBox "沒有資料": Exit Sub
   For i = 2 To .[B65536].End(3).Row
      If Rows(i).EntireRow.Hidden = True Then GoTo i02
      n = n + 1
      For j = 0 To 4
         Crr(n, A(j)) = Cells(i, j + 2)
      Next
i02: Next
End With
With sh2.[B65536].End(3)(2).Resize(n, 6)
   .Value = Crr
   sh2.Activate
   .Select
End With
Set sh1 = Nothing: Set sh2 = Nothing: Set Frng = Nothing: Erase Crr
End Sub

Sub 清除項目()
Dim Q
For Each Q In Worksheets
   If Q.[G3] = "建議廠牌" Then Q.UsedRange.Offset(3, 0).EntireRow.Delete: Exit Sub
Next
End Sub
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題