質問編集履歴

4

2020/03/17 20:53

投稿

daisanrock
daisanrock

スコア8

test CHANGED
File without changes
test CHANGED
@@ -58,7 +58,7 @@
58
58
 
59
59
 
60
60
 
61
- ネット情報の切り貼りですが、現在はA列比較のみですが「4」まで作成しています。
61
+ ネット情報の切り貼りですが、現在はサンプルをA列のみとし比較「4」まで作成しています。
62
62
 
63
63
  初心者であり非力なので、ご教示いただけますと助かります。
64
64
 

3

2020/03/17 20:53

投稿

daisanrock
daisanrock

スコア8

test CHANGED
File without changes
test CHANGED
@@ -58,7 +58,7 @@
58
58
 
59
59
 
60
60
 
61
- ネット情報の切り貼りですが、現在はA列比較まで作成しています。
61
+ ネット情報の切り貼りですが、現在はA列比較のみですが「4」まで作成しています。
62
62
 
63
63
  初心者であり非力なので、ご教示いただけますと助かります。
64
64
 

2

2020/03/17 12:21

投稿

daisanrock
daisanrock

スコア8

test CHANGED
File without changes
test CHANGED
@@ -58,7 +58,7 @@
58
58
 
59
59
 
60
60
 
61
- ネット情報の切り貼りですが、現在はここまで作成しています。
61
+ ネット情報の切り貼りですが、現在はA列比較まで作成しています。
62
62
 
63
63
  初心者であり非力なので、ご教示いただけますと助かります。
64
64
 

1

2020/03/17 12:19

投稿

daisanrock
daisanrock

スコア8

test CHANGED
File without changes
test CHANGED
@@ -1,6 +1,4 @@
1
- この二つのエクセルを下記の仕様で比較をしたいのですが、初心者のため
1
+ この二つのエクセルを下記の仕様で比較をしたいのですが、初心者のためどのようなプログラムを書くのか分かりません。
2
-
3
- どのようなプログラムを書くのか分かりません。
4
2
 
5
3
  申し訳ありませんが、ご教示いただけますと幸いです。
6
4
 
@@ -82,11 +80,11 @@
82
80
 
83
81
 
84
82
 
85
- Set ws1 = ThisWorkbook.Worksheets("sample6")
83
+ Set ws1 = ThisWorkbook.Worksheets("sample1")
86
84
 
87
85
 
88
86
 
89
- Workbooks.Open Filename:=ThisWorkbook.Path & "\B.xlsx"
87
+ Workbooks.Open Filename:=ThisWorkbook.Path & "\sample2.xlsx"
90
88
 
91
89
  Set ws2 = ActiveWorkbook.Worksheets("sample")
92
90