回答編集履歴
1
文字の修正をしました。
test
CHANGED
|
@@ -20,7 +20,7 @@
|
|
|
20
20
|
|
|
21
21
|
If Range(セル).Font.Bold = True Then
|
|
22
22
|
|
|
23
|
-
Cells(i,
|
|
23
|
+
Cells(i, 1) = Cells(i, 2) ’B列太字のCells(i, 2)を A列Cells(i, 1) にコピー
|
|
24
24
|
|
|
25
25
|
End If
|
|
26
26
|
|