質問編集履歴
1
コードの追加を行いました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -30,6 +30,26 @@
|
|
30
30
|
|
31
31
|
|
32
32
|
|
33
|
+
```VBA
|
34
|
+
|
35
|
+
Dim i
|
36
|
+
|
37
|
+
Dim iWidth As Double: iWidth = 0
|
38
|
+
|
39
|
+
|
40
|
+
|
41
|
+
' 結合セルの幅を取得
|
42
|
+
|
43
|
+
For i = 1 To Range(結合セル).MergeArea.Columns.Count
|
44
|
+
|
45
|
+
iWidth = iWidth + outputSheet.Range(cell).MergeArea.Item(i).ColumnWidth
|
46
|
+
|
47
|
+
Next
|
48
|
+
|
49
|
+
```
|
50
|
+
|
51
|
+
|
52
|
+
|
33
53
|
### 補足情報(FW/ツールのバージョンなど)
|
34
54
|
|
35
55
|
Excel 2016
|