[發問] sheet1單儲存格資料傳送至sheet2的合併儲存格

s13030029

要如何把sheet1單儲存格的資料傳送到sheet2合併的儲存格中
目前我的程式是這樣
只是不太會寫迴圈
因為sheet1的資料是會經過篩選而變動的

1. Sub teat1()
   
2. 
   
3.     Set ma = Sheets("工作表6").Cells(1, "A").MergeArea
   
4.     If Sheets("工作表6").Cells(1, "A").MergeCells Then
   
5.      ma.Cells(1, "A").Value = Sheets("工作表5").Cells(1, "A")
   
6.     End If
   
7. 
   
8. End Sub

複製代碼

下載 (51.4 KB)

2019-5-27 14:14

zheng211016

把檔案放上來吧~ 順便把篩選條件都附上

s13030029

回復 2# zheng211016
依工作表1中的檢驗設備來進行篩選，也是依使用者需求選取變動的
test篩選傳送.rar (28.39 KB)

下載次數: 3

2019-5-27 17:51

zheng211016

使用方法 : 手動篩選完後 點擊 匯出
篩選範圍 : 選擇藍色框框進行篩選(如圖)
篩選條件 : 請務必勾選空白(否則會出現偵錯 原因是因為我的複製範圍是固定的)

下載 (110 KB)

2019-5-28 12:34

下載 (23.99 KB)

2019-5-28 12:34

test篩選複製.rar (27.74 KB)

下載次數: 8

2019-5-28 12:34

s13030029

回復 4# zheng211016
謝謝~我已經找到方法了

1. Sub test()
   
2.     Dim temp(10)
   
3.     Dim Meg As Boolean
   
4.     Sheets("工作表1").Select
   
5.     Sheets("工作表1").Range("A8").Select
   
6. 
   
7. '讀取sheet1篩選的資料並寫入sheet2................
   
8.     K = 12
   
9.     Do
   
10.         ActiveCell.Offset(1).Select '活動單格下移一行
    
11.         Meg = ActiveCell.MergeCells
    
12.         
    
13.         If ActiveCell.Rows.Hidden = False And ActiveCell.Value <> "" And Meg = False Then
    
14.                 temp(1) = ActiveCell.Value
    
15.                 temp(2) = ActiveCell.Offset(0, 1).Value
    
16.                 temp(3) = ActiveCell.Offset(0, 4).Value
    
17.                 Sheets("工作表2").Cells(K + 1, 1) = temp(1)
    
18.                 Sheets("工作表2").Cells(K + 1, 2) = temp(2) & Chr(10) & temp(3)
    
19.                 K = K + 5
    
20.         End If
    
21.     Loop Until ActiveCell = "" Or Meg = True
    
22.   
    
23. '整理sheet2 格式................
    
24.     K = 12
    
25.     With Sheets("工作表2")
    
26.         Do
    
27.             If .Cells(K + 1, 1) <> "" Then
    
28.                 .Range(.Cells(K + 1, 1), .Cells(K + 5, 1)).Merge
    
29.                 .Range(.Cells(K + 1, 2), .Cells(K + 5, 2)).Merge
    
30.                 K = K + 5
    
31.             Else
    
32.                 Exit Sub
    
33.             End If
    
34.         Loop
    
35.     End With
    
36.    
    
37. End Sub

複製代碼

zheng211016

回復 5# s13030029

摁 看你哪個程式碼比較容易懂跟撰寫 就用那個