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

質問編集履歴

6

誤記

2020/06/06 01:15

投稿

koko2
koko2

スコア21

title CHANGED
File without changes
body CHANGED
@@ -41,5 +41,5 @@
41
41
  ②さらにE列にCCが入力されている場合、AからD列をコピーし貼り付け
42
42
  ③上から順に繰り返す
43
43
  ④毎回列の数は変わります
44
- ![イメージ説明](c5f66338d4f91c6e470b74eae5dda07b.png)
44
+
45
45
  どのようにしたらうまく行くのかご教示頂けないでしょうか、よろしくお願いします

5

修正

2020/06/06 01:15

投稿

koko2
koko2

スコア21

title CHANGED
File without changes
body CHANGED
@@ -34,7 +34,7 @@
34
34
  ws1.(Cells(i, "A"),Cells(i, "B"),Cells(i, "C"), Cells(i + 1, "D")).Copy
35
35
  ws2.Cells(i, 2).PasteSpecial Paste:=xlPasteValues
36
36
 
37
- の記載がよくわかりませんでした。
37
+ の記載が間違っているうなのですが自分ではよくわかりませんでした。
38
38
 
39
39
  **<やりたいこと>**
40
40
  ①Sheet1にデータがあり、E列に条件として、今のところ順番は「AA」「BB」「CC」の3つの順番が入っています。E列にAA,BBが入力されている場合、C列のAA列を・D列はBB列をコピーしsheet2へ貼り付けて一覧にしたいです。

4

修正

2020/05/06 11:04

投稿

koko2
koko2

スコア21

title CHANGED
File without changes
body CHANGED
@@ -27,8 +27,14 @@
27
27
  Next
28
28
  End Sub
29
29
 
30
+ ```
31
+ **<エラー箇所>**
30
- ```としましたが
32
+ 作成しましたが
31
- If ColRead = "AA" Or "BB" Then以降でデバックとなります。
33
+ If ColRead = "AA" Or "BB" Then
34
+ ws1.(Cells(i, "A"),Cells(i, "B"),Cells(i, "C"), Cells(i + 1, "D")).Copy
35
+ ws2.Cells(i, 2).PasteSpecial Paste:=xlPasteValues
36
+
37
+ の記載がよくわかりませんでした。
32
38
 
33
39
  **<やりたいこと>**
34
40
  ①Sheet1にデータがあり、E列に条件として、今のところ順番は「AA」「BB」「CC」の3つの順番が入っています。E列にAA,BBが入力されている場合、C列のAA列を・D列はBB列をコピーしsheet2へ貼り付けて一覧にしたいです。

3

修正

2020/05/06 09:20

投稿

koko2
koko2

スコア21

title CHANGED
File without changes
body CHANGED
@@ -32,7 +32,7 @@
32
32
 
33
33
  **<やりたいこと>**
34
34
  ①Sheet1にデータがあり、E列に条件として、今のところ順番は「AA」「BB」「CC」の3つの順番が入っています。E列にAA,BBが入力されている場合、C列のAA列を・D列はBB列をコピーしsheet2へ貼り付けて一覧にしたいです。
35
- ②E列にCCが入力されている場合、AからD列をコピーし貼り付け
35
+ さらにE列にCCが入力されている場合、AからD列をコピーし貼り付け
36
36
  ③上から順に繰り返す
37
37
  ④毎回列の数は変わります
38
38
  ![イメージ説明](c5f66338d4f91c6e470b74eae5dda07b.png)

2

修正

2020/05/06 06:45

投稿

koko2
koko2

スコア21

title CHANGED
File without changes
body CHANGED
@@ -31,7 +31,7 @@
31
31
  If ColRead = "AA" Or "BB" Then以降でデバックとなります。
32
32
 
33
33
  **<やりたいこと>**
34
- ①Sheet1にデータがあり、E列にAA,BBが入力されている場合、C列のAA列を・D列はBB列をコピーしsheet2へ貼り付け。
34
+ ①Sheet1にデータがあり、E列に条件として、今のところ順番は「AA」「BB」「CC」の3つの順番が入っています。E列にAA,BBが入力されている場合、C列のAA列を・D列はBB列をコピーしsheet2へ貼り付けて一覧にしたいです
35
35
  ②E列にCCが入力されている場合、AからD列をコピーし貼り付け
36
36
  ③上から順に繰り返す
37
37
  ④毎回列の数は変わります

1

修正

2020/05/06 06:44

投稿

koko2
koko2

スコア21

title CHANGED
File without changes
body CHANGED
@@ -27,7 +27,8 @@
27
27
  Next
28
28
  End Sub
29
29
 
30
- ```としましたがセルデータを読み込んでくれません
30
+ ```としましたが
31
+ If ColRead = "AA" Or "BB" Then以降でデバックとなります。
31
32
 
32
33
  **<やりたいこと>**
33
34
  ①Sheet1にデータがあり、E列にAA,BBが入力されている場合、C列のAA列を・D列はBB列をコピーしsheet2へ貼り付け。