[個人仕様]［CodeBackColors］ 4 0 0 7 6 4 4 4 0 0 0 0 0 0 0 0 ［CodeForeColors］ 7 0 5 0 1 2 11 2 0 0 0 0 0 0 0 0 [マトリクス仕様]［CodeBackColors］ 4 0 1 7 6 4 4 4 4 4 0 0 0 0 0 0 ［CodeForeColors］ 9 0 15 0 1 2 1 9 9 7 0 0 0 0 0 0

スケール 拡大/縮小 第一候補 第二候補拡大 A4→A3 140% 141%B5→B4A5→A4A4→B4 122% A5→B5B4→A3 114% 115%B5→A4等倍 - 100% 縮小 A4→B5 84% 87%A3→B4B5→A5 81% 82%B4→A4A4→A5 70% 71%B4→B5A3→A4

Sub CreateOriginalTableFromPivotTable() Dim pt As PivotTable Dim wsSource As Worksheet Dim wsDestination As Worksheet Dim rngSource As Range Dim rngDestination As Range Dim srcRow As Long Dim destRow As Long ' ピボットテーブルがあるシート…

Sub 結合() Dim ws As Worksheet Dim lastRow As Long Dim dict As Object Dim key As String Dim i As Long Dim result As String ' 新しいディクショナリを作成 Set dict = CreateObject("Scripting.Dictionary") ' データがあるシートを指定 Set ws = Thi…