質問編集履歴
1
コードの追加を行いました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -14,5 +14,15 @@
|
|
|
14
14
|
|
|
15
15
|
|
|
16
16
|
|
|
17
|
+
```VBA
|
|
18
|
+
Dim i
|
|
19
|
+
Dim iWidth As Double: iWidth = 0
|
|
20
|
+
|
|
21
|
+
' 結合セルの幅を取得
|
|
22
|
+
For i = 1 To Range(結合セル).MergeArea.Columns.Count
|
|
23
|
+
iWidth = iWidth + outputSheet.Range(cell).MergeArea.Item(i).ColumnWidth
|
|
24
|
+
Next
|
|
25
|
+
```
|
|
26
|
+
|
|
17
27
|
### 補足情報（FW/ツールのバージョンなど）
|
|
18
28
|
Excel 2016
|