質問編集履歴
2
再度のイメージ画像変更と 画像下にやりたいことの説明。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -2,8 +2,12 @@
|
|
|
2
2
|
セルの値を書き換えているので遅くなっているので
|
|
3
3
|
配列で処理する方法はないでしょうか？
|
|
4
4
|
|
|
5
|
-
イメージを画像に変更させていただきました。
|
|
6
|
-
|
|
6
|
+
|
|
7
|
+
上画像が現データ 下画像がやりたい事です。
|
|
8
|
+
**基準２行目**のＡ列からＧ列と**３行目**のＡ列からＧ列を順番に比較し不一致だったらセル値を右へ一つ移動する。
|
|
9
|
+
基準２行目**のＡ列からＧ列と**４行目**のＡ列からＧ列を順番に比較し不一致だったらセル値を右へ一つ移動する。
|
|
10
|
+
|
|
7
11
|
|
|
8
12
|
Sub test()
|
|
9
13
|
Dim ws As Worksheet
|
1
前後のイメージを画像に変更させていただきました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -2,12 +2,12 @@
|
|
|
2
2
|
セルの値を書き換えているので遅くなっているので
|
|
3
3
|
配列で処理する方法はないでしょうか？
|
|
4
4
|
|
|
5
|
+
イメージを画像に変更させていただきました。
|
|
6
|
+
|
|
7
|
+
|
|
8
|
+
Sub test()
|
|
5
|
-
|
|
9
|
+
Dim ws As Worksheet
|
|
6
|
-
1 ～見出し～ ～見出し～
|
|
7
|
-
|
|
10
|
+
Set ws = Sheets("test1")
|
|
8
|
-
3 a b c e g → 3 a b c e g
|
|
9
|
-
4 a b c d f g 4 a b c d f g
|
|
10
|
-
5 a b c d e f g 5 a b c d e f g
|
|
11
11
|
|
|
12
12
|
Dim last_row, x, y As Long
|
|
13
13
|
last_row = ws.Cells(Rows.Count, 1).End(xlUp).Row
|