teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

2

コード追記

2020/03/10 05:22

投稿

tesgakr
tesgakr

スコア6

title CHANGED
File without changes
body CHANGED
@@ -9,4 +9,27 @@
9
9
  がポイントかと思っておりますが
10
10
  条件指定が正しくなく全てのシートをコピーしてしまう状態です。
11
11
 
12
- アドバイス等ありましたら教示いただけると幸いです。
12
+ アドバイス等ありましたら教示いただけると幸いです。
13
+
14
+ 使用のマクロです______________
15
+ Sub Test()
16
+ Dim i As Long, ad As Integer, r As Long
17
+ Dim ws As Worksheet
18
+ Dim wsname As String
19
+ wsname = "食"
20
+
21
+ Sheets(1).Cells.Clear
22
+ For Each ws In Worksheets
23
+ If ws.Name Like "*" & wsname Then
24
+ For i = 2 To ActiveWorkbook.Sheets.Count
25
+ Sheets(i).UsedRange.Copy
26
+ r = Sheets(1).UsedRange.Rows.Count
27
+ If i = 2 Then ad = 0 Else ad = 2 '※
28
+ Cells(r, 1).Offset(ad).Select '※
29
+ ActiveSheet.Paste
30
+ End If
31
+ Next
32
+ Next
33
+
34
+ Sheets(1).Columns.AutoFit
35
+ End Sub

1

タイトル

2020/03/10 05:22

投稿

tesgakr
tesgakr

スコア6

title CHANGED
@@ -1,1 +1,1 @@
1
- [Excel][VBA] 条件満たすシートのみコピーして1シートにまとめる方法
1
+ [Excel][VBA] 指定の文字列含むシートのみコピーして1シートにまとめる方法
body CHANGED
File without changes