I den här självstudien kommer vi att titta på de olika sätten du kan slå ihop celler med VBA.
Slå ihop celler med VBA
Du kan slå ihop celler i VBA med hjälp av metoden Range.Merge. Följande kod kommer att slå ihop cellerna A1: C1:
12345 | Sub MergingCells ()Område ("A1: C1"). Slå ihopAvsluta Sub |
Resultatet är:
Ta bort cellerna med VBA
Du kan koppla ihop ett sammanlagt cellintervall med metoden Range.UnMerge. Låt oss säga att du har slagit ihop cellområdet A1: D1. Du kan använda en av cellreferenserna i intervallet för att sammanfoga cellerna. Följande kod visar hur du slår ihop cellerna A1: D1, i det här fallet använder vi cell B1:
12345 | Sub UnmergeCells ()Område ("B1"). UnMergeAvsluta Sub |
Fler sammanfogningsexempel
Slå samman rader med VBA
Du kan slå samman rader med VBA genom att ange de radnummer som du vill slå samman. Vi har texten i cell A1 som visas nedan:
Följande kod kommer att slå samman raderna 1-4:
12345 | Sub MergeRows ()Område ("1: 4"). Slå ihopAvsluta Sub |
Resultatet är:
Slå samman kolumner med VBA
Du kan slå samman kolumner med VBA och kolumnbokstäverna. Följande kod sammanfogar kolumner A: C.
12345 | Sub MergeColumns ()Område ("A: C"). Slå ihopAvsluta Sub |
Resultatet är:
Slå ihop och centrera cellinnehållet horisontellt
Du kan slå samman och centrera cellinnehåll horisontellt över ett cellintervall. Du måste slå ihop cellerna av intresse och även ställa in den horisontella justeringsegenskapen för intervallobjektet till centrum. Vi har texten i cell A1 enligt nedan:
Följande kod kommer att slå samman cellintervallet A1: D1 och centrera innehållet i cell A1 horisontellt över detta cellintervall:
123456 | Sub MergeandCenterContentsHorizontally ()Område ("A1: D1"). Slå ihopOmråde ("A1: D1"). HorizontalAlignment = xlCenterAvsluta Sub |
Resultatet är:
Slå ihop och centrera cellinnehåll vertikalt
Du kan slå samman och centrera cellinnehåll vertikalt över ett cellintervall. Du måste slå ihop cellerna av intresse och även ställa in den vertikala justeringsegenskapen för intervallobjektet till centrum. Vi har texten i cell A1 enligt nedan:
Följande kod kommer att sammanfoga cellintervallet A1: A4 och centrera innehållet i cell A1 vertikalt över detta cellintervall:
123456 | Sub MergeandCenterContentsVertically ()Område ("A1: A4"). Slå ihopOmråde ("A1: D1"). VerticalAlignment = xlCenterAvsluta Sub |
Resultatet är:
Slå samman celler över ett cellintervall
Du kan slå samman celler över ett cellintervall. Du måste ställa in den valfria Across -parametern i Merge -metoden till True. Vi har texten i cell A1 enligt nedan:
Följande kod kommer att slå samman cellintervallet A1: D1:
12345 | Sub MergeCellsAcross ()Område ("A1: D1"). Slå samman: = TrueAvsluta Sub |
Resultatet är: