Excel VBA 質問スレッド No.89 (解決済)

貼り付け時の行列幅の設定

投稿者 : アデ     投稿日時 : 2020/07/16(Thu) 16:26:48     OS : 未指定     EXCEL : 未指定
はじめまして。
初心者ながらいろいろなサイトを見て試行錯誤しましたが、成功しないので質問させていただきました。

現在、複数シートのデータをコピーして<全シート>に貼り付けする作業をしています。
貼り付けはできたのですが、コピー元の行列幅を引き継いで表示されません。

VBAのコードを書きましたので、ご指導よろしくおねがいします。


Sub sh_check()

Dim newSh As String
Dim Sh As Worksheet, myFlag As Boolean
newSh = "全データ"
myFlag = False
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name = newSh Then
myFlag = True

Worksheets(newSh).Cells.ClearContents
Worksheets(newSh).Move before:=Sheets(1)
Exit For
End If
Next Sh

If myFlag = False Then
ActiveWorkbook.Worksheets.Add(before:=Worksheets(1)).Name = newSh
End If
End Sub


Sub 一覧()
Dim i As Integer
Dim j As Integer
Dim lRow As Long, lCol As Long, lRow2 As Long
Application.ScreenUpdating = False

sh_check

For i = 1 To Worksheets.Count
With Worksheets(i)
lRow = .Cells(Rows.Count, 1).End(xlUp).Row

lCol = 18

If lRow >= 2 Then


lRow2 = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
.Activate
.Range(Cells(1, 1), Cells(lRow, lCol)).Copy Worksheets(1).Cells(lRow2, 1)




i = i + 1
End If

End With
Next i
Worksheets(1).Activate
Range("A1").Select
Application.ScreenUpdating = True

End Sub

[返信 1] Re : 貼り付け時の行列幅の設定
投稿者 : アデ     投稿日時 : 2020/07/17(Fri) 14:47:11
すみませんでした。

スポンサード リンク
 
 
当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2020-08-10 16:41:53 )

Page
Top