ã€ã‚¨ã‚¯ã‚»ãƒ«VBA】一瞬ã§çµåˆã‚»ãƒ«ã‚’解除ã—ã¦å€¤ã‚’埋ã‚るマクãƒãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã¨ã—ã¦ä½¿ã„ãŸã„表ãªã®ã«ã€çµåˆã‚»ãƒ«ã らã‘ã§ä½¿ã„物ã«ãªã‚‰ãªã„。 ãã‚“ãªã¨ãã«ã€VBAã§ä½œã£ãŸãƒžã‚¯ãƒã‚’èµ·å‹•ã™ã‚‹ã ã‘ã§ã€ çµåˆã‚»ãƒ«ã‚’解除ã—㦠元々入ã£ã¦ã„ãŸå€¤ã‚’ã€çµåˆã•ã‚Œã¦ã„ãŸã™ã¹ã¦ã®ã‚»ãƒ«ã«å…¥åŠ›ã™ã‚‹ マクãƒã‚’紹介ã—ã¾ã™ã€‚ ソースコードを貼り付ã‘ã¦å®Ÿè¡Œã™ã‚‹ã ã‘ãªã®ã§ã€1分もã‹ã‹ã‚‰ãšã«ã€è¡¨ã‚’æ•´å½¢ã§ãã¾ã™ã€‚ ソースコード 下記をã€æ¨™æº–モジュールã«è²¼ã‚Šä»˜ã‘ã¦å®Ÿè¡Œã—ã¦ãã ã•ã„。 Sub UnmergeCellsAndFillValues() Dim rng As Range For Each rng In ActiveSheet.UsedRange If rng.MergeCells Then With rng.MergeArea .UnMerge .Value = .Resize(1, 1).Value End With End If Next End Sub 解説 For Eachループ F
{{#tags}}- {{label}}
{{/tags}}