- 帖子
- 97
- 主題
- 33
- 精華
- 0
- 積分
- 129
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2019-5-7
- 最後登錄
- 2022-8-25
|
5#
發表於 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
|
|
