標題:
[發問]
sheet1單儲存格資料傳送至sheet2的合併儲存格
[打印本頁]
作者:
s13030029
時間:
2019-5-27 14:15
標題:
sheet1單儲存格資料傳送至sheet2的合併儲存格
要如何把sheet1單儲存格的資料傳送到sheet2合併的儲存格中
目前我的程式是這樣
只是不太會寫迴圈
因為sheet1的資料是會經過篩選而變動的
Sub teat1()
Set ma = Sheets("工作表6").Cells(1, "A").MergeArea
If Sheets("工作表6").Cells(1, "A").MergeCells Then
ma.Cells(1, "A").Value = Sheets("工作表5").Cells(1, "A")
End If
End Sub
複製代碼
[attach]30675[/attach]
作者:
zheng211016
時間:
2019-5-27 17:23
本帖最後由 zheng211016 於 2019-5-27 17:25 編輯
把檔案放上來吧~ 順便把篩選條件都附上
作者:
s13030029
時間:
2019-5-27 17:51
回復
2#
zheng211016
依工作表1中的檢驗設備來進行篩選，也是依使用者需求選取變動的
[attach]30682[/attach]
作者:
zheng211016
時間:
2019-5-28 12:37
使用方法 : 手動篩選完後 點擊 匯出
篩選範圍 : 選擇藍色框框進行篩選(如圖)
篩選條件 : 請務必勾選空白(否則會出現偵錯 原因是因為我的複製範圍是固定的)
[attach]30696[/attach]
[attach]30695[/attach]
[attach]30694[/attach]
作者:
s13030029
時間:
2019-5-28 13:56
回復
4#
zheng211016
謝謝~我已經找到方法了
Sub test()
Dim temp(10)
Dim Meg As Boolean
Sheets("工作表1").Select
Sheets("工作表1").Range("A8").Select
'讀取sheet1篩選的資料並寫入sheet2................
K = 12
Do
ActiveCell.Offset(1).Select '活動單格下移一行
Meg = ActiveCell.MergeCells
If ActiveCell.Rows.Hidden = False And ActiveCell.Value <> "" And Meg = False Then
temp(1) = ActiveCell.Value
temp(2) = ActiveCell.Offset(0, 1).Value
temp(3) = ActiveCell.Offset(0, 4).Value
Sheets("工作表2").Cells(K + 1, 1) = temp(1)
Sheets("工作表2").Cells(K + 1, 2) = temp(2) & Chr(10) & temp(3)
K = K + 5
End If
Loop Until ActiveCell = "" Or Meg = True
'整理sheet2 格式................
K = 12
With Sheets("工作表2")
Do
If .Cells(K + 1, 1) <> "" Then
.Range(.Cells(K + 1, 1), .Cells(K + 5, 1)).Merge
.Range(.Cells(K + 1, 2), .Cells(K + 5, 2)).Merge
K = K + 5
Else
Exit Sub
End If
Loop
End With
End Sub
複製代碼
作者:
zheng211016
時間:
2019-5-28 18:52
回復
5#
s13030029
摁 看你哪個程式碼比較容易懂跟撰寫 就用那個
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
