Excel VBA 値での貼り付け 改行

Question

Excelで特定シートの行をコピーして別シートに張り付けるＶＢＡのマクロを組んでいたのですが値での貼り付けと改行ができません。
何か解決方法はありますでしょうか？

よろしくお願いいたします。

Sub Merge()

Dim MergeBook As Workbook
Dim CurrentBook As Workbook
Dim CurrentPath As String
Dim Filename As String
Dim n As Integer

Application.ScreenUpdating = False
Set MergeBook = ThisWorkbook

Dim MergeSheet As Worksheet
Set MergeSheet = MergeBook.Worksheets.Add
MergeSheet.Name = "集計"

CurrentPath = MergeBook.Path
Filename = Dir(CurrentPath & "*.xls?")

n = 0
Do While Filename <> Empty
    If Filename <> MergeBook.Name Then
        Set CurrentBook = Workbooks.Open(CurrentPath & "\" & Filename)
        Dim ws As Worksheet
        For Each ws In CurrentBook.Worksheets
            ws.Range("AJ1:AK500").Copy
            ws.Range("AJ1:AK500").PasteSpecial Paste:=xlPasteValues
            MergeSheet.Range("A" & MergeSheet.Rows.Count).End(xlUp).Offset (1)
        Next
        CurrentBook.Close False
        n = n + 1
    End If
    Filename = Dir
Loop

Application.ScreenUpdating = True
MsgBox n & "件のブックを処理しました。"

End Sub

Answer 1

セル内改行は、セルの書式が「折り返して全体を表示」になっていないと改行して見えなかったと。
ですので、

ws.Range("AJ1:AK500").PasteSpecial Paste:=xlPasteValues

このあとに、以下を追記すればよろしいかと。

ws.Range("AJ1:AK500").WrapText = True

Answer 2

＞ws.Range("AJ1:AK500").Copy
＞ws.Range("AJ1:AK500").PasteSpecial Paste:=xlPasteValues

これですと同じ場所にコピペしてますよね？
それに貼り付ける際にはセル範囲の左上のセルを指定するだけで宜しいかと。この場合なら"AJ1"でしょうか。

目的が不明ですが仮にMergeSheetのＡ列を基準として貼り付けるのなら貼り付け先は、

MergeSheet.Range("A" & MergeSheet.Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues

例えばこんな感じでしょうか。

Comments

[minakosun]

ありがとうございます！わかりやすくて理解もできました！
値での貼り付けに成功しました！
改行については
ｎの数式がうまく使えていなくて作用していないみたいなんです。
一回ペーストした後に右の空白セルの先頭に改行してからペーストを繰り返しているつもりなのですが。。。