回答編集履歴
1
文字の修正をしました。
answer
CHANGED
|
@@ -9,7 +9,7 @@
|
|
|
9
9
|
セル = "ｂ" & i
|
|
10
10
|
|
|
11
11
|
If Range(セル).Font.Bold = True Then
|
|
12
|
-
Cells(i,
|
|
12
|
+
Cells(i, 1) = Cells(i, 2) ’B列太字のCells(i, 2)を A列Cells(i, 1) にコピー
|
|
13
13
|
End If
|
|
14
14
|
|
|
15
15
|
i = i + 1
|