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

　暱稱: 伊恩

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-5-27 14:15 | 顯示全部帖子

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

複製代碼

　暱稱: 伊恩

2^#

發表於 2019-5-27 17:51 | 顯示全部帖子

回復 2# zheng211016
依工作表1中的檢驗設備來進行篩選，也是依使用者需求選取變動的

test篩選傳送.rar (28.39 KB)

　暱稱: 伊恩

3^#

發表於 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

複製代碼

靜思自在 : 為人處世要小心細心，但不要「小心眼」。