{"id":4497,"date":"2023-07-10T15:23:05","date_gmt":"2023-07-10T15:23:05","guid":{"rendered":"https:\/\/statorials.org\/id\/vba-menggabungkan-sel-dengan-nilai-yang-sama\/"},"modified":"2023-07-10T15:23:05","modified_gmt":"2023-07-10T15:23:05","slug":"vba-menggabungkan-sel-dengan-nilai-yang-sama","status":"publish","type":"post","link":"https:\/\/statorials.org\/id\/vba-menggabungkan-sel-dengan-nilai-yang-sama\/","title":{"rendered":"Vba: cara menggabungkan sel dengan nilai yang sama"},"content":{"rendered":"<p><\/p>\n<hr>\n<p><span style=\"color: #000000;\">Anda dapat menggunakan sintaks berikut di VBA untuk menggabungkan sel dengan nilai yang sama dalam rentang tertentu:<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <span style=\"color: #000000;\"><strong><span style=\"color: #0000ff;\">Sub<\/span> MergeSameCells()\n    \n    <span style=\"color: #008000;\">'turn off display alerts while merging<\/span>\n    Application.DisplayAlerts = False\n    \n    <span style=\"color: #008000;\">'specify range of cells for merging<\/span>\n    <span style=\"color: #0000ff;\">Set<\/span> myRange = Range(\" <span style=\"color: #ff0000;\">A1:C13<\/span> \")\n\n<span style=\"color: #008000;\">'merge all same cells in range<\/span>\nMergeSame:\n    <span style=\"color: #0000ff;\">For Each<\/span> cell <span style=\"color: #0000ff;\">In<\/span> myRange\n        <span style=\"color: #0000ff;\">If<\/span> cell.Value = cell.Offset(1, 0).Value <span style=\"color: #0000ff;\">And Not<\/span> IsEmpty(cell) <span style=\"color: #0000ff;\">Then<\/span>\n            Range(cell, cell.Offset(1, 0)).Merge\n            cell.VerticalAlignment = xlCenter\n            <span style=\"color: #0000ff;\">GoTo<\/span> MergeSame\n        <span style=\"color: #0000ff;\">End If<\/span>\n    <span style=\"color: #0000ff;\">Next<\/span>\n    \n    <span style=\"color: #008000;\">'turn display alerts back on<\/span>\n    Application.DisplayAlerts = True\n\n<span style=\"color: #0000ff;\">End Sub\n<\/span><\/strong><\/span><\/pre>\n<p> <span style=\"color: #000000;\">Makro khusus ini menggabungkan sel dengan nilai yang sama dalam rentang <strong>A1:C13<\/strong> .<\/span><\/p>\n<p> <span style=\"color: #000000;\">Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.<\/span><\/p>\n<h2> <span style=\"color: #000000;\"><strong>Contoh: Gabungkan Sel dengan Nilai yang Sama di VBA<\/strong><\/span><\/h2>\n<p> <span style=\"color: #000000;\">Misalkan kita memiliki kumpulan data berikut di Excel yang berisi informasi tentang poin yang dicetak oleh berbagai pemain bola basket:<\/span> <\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\" wp-image-35170 aligncenter\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/fusionne1.png\" alt=\"\" width=\"504\" height=\"427\" srcset=\"\" sizes=\"\"><\/p>\n<p> <span style=\"color: #000000;\">Misalkan kita ingin menggabungkan sel dengan nilai yang sama dalam baris yang berurutan.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Kita dapat membuat makro berikut untuk melakukan ini:<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <span style=\"color: #000000;\"><strong><span style=\"color: #0000ff;\">Sub<\/span> MergeSameCells()\n    \n    <span style=\"color: #008000;\">'turn off display alerts while merging<\/span>\n    Application.DisplayAlerts = False\n    \n    <span style=\"color: #008000;\">'specify range of cells for merging<\/span>\n    <span style=\"color: #0000ff;\">Set<\/span> myRange = Range(\" <span style=\"color: #ff0000;\">A1:C13<\/span> \")\n\n<span style=\"color: #008000;\">'merge all same cells in range<\/span>\nMergeSame:\n    <span style=\"color: #0000ff;\">For Each<\/span> cell <span style=\"color: #0000ff;\">In<\/span> myRange\n        <span style=\"color: #0000ff;\">If<\/span> cell.Value = cell.Offset(1, 0).Value <span style=\"color: #0000ff;\">And Not<\/span> IsEmpty(cell) <span style=\"color: #0000ff;\">Then<\/span>\n            Range(cell, cell.Offset(1, 0)).Merge\n            cell.VerticalAlignment = xlCenter\n            <span style=\"color: #0000ff;\">GoTo<\/span> MergeSame\n        <span style=\"color: #0000ff;\">End If<\/span>\n    <span style=\"color: #0000ff;\">Next<\/span>\n    \n    <span style=\"color: #008000;\">'turn display alerts back on<\/span>\n    Application.DisplayAlerts = True\n\n<span style=\"color: #0000ff;\">End Sub<\/span><\/strong><\/span><\/pre>\n<p> <span style=\"color: #000000;\">Saat kami menjalankan makro ini, kami menerima keluaran berikut:<\/span> <\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\"aligncenter wp-image-35171\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/fusions2.png\" alt=\"VBA menggabungkan sel dengan nilai yang sama\" width=\"446\" height=\"460\" srcset=\"\" sizes=\"\"><\/p>\n<p> <span style=\"color: #000000;\">Perhatikan bahwa setiap sel yang berisi nama <strong>konferensi<\/strong> dan nama <strong>tim<\/strong> yang sama telah digabungkan.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Perhatikan bahwa kami menggunakan pernyataan <strong>cell.VerticalAlignment = xlCenter<\/strong> untuk menentukan bahwa teks harus dipusatkan secara vertikal di sel yang digabungkan.<\/span><\/p>\n<h2> <span style=\"color: #000000;\"><strong>Sumber daya tambahan<\/strong><\/span><\/h2>\n<p> <span style=\"color: #000000;\">Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:<\/span><\/p>\n<p> <span style=\"color: #000000;\"><a href=\"https:\/\/statorials.org\/id\/jumlah-kolom-vba\/\" target=\"_blank\" rel=\"noopener\">VBA: Cara menghitung jumlah kolom yang digunakan<\/a><br \/> <a href=\"https:\/\/statorials.org\/id\/tinggi-garis-vba\/\" target=\"_blank\" rel=\"noopener\">VBA: Cara mengubah tinggi baris<\/a><br \/> <a href=\"https:\/\/statorials.org\/id\/lebar-kolom-vba\/\" target=\"_blank\" rel=\"noopener\">VBA: Cara mengubah lebar kolom<\/a><br \/><\/span><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Anda dapat menggunakan sintaks berikut di VBA untuk menggabungkan sel dengan nilai yang sama dalam rentang tertentu: Sub MergeSameCells() &#8216;turn off display alerts while merging Application.DisplayAlerts = False &#8216;specify range of cells for merging Set myRange = Range(&#8221; A1:C13 &#8220;) &#8216;merge all same cells in range MergeSame: For Each cell In myRange If cell.Value = [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v21.5 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>VBA: Cara menggabungkan sel dengan nilai yang sama - Statorials<\/title>\n<meta name=\"description\" content=\"Tutorial ini menjelaskan cara menggabungkan sel dengan nilai yang sama di Excel menggunakan VBA, beserta contohnya.\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/statorials.org\/id\/vba-menggabungkan-sel-dengan-nilai-yang-sama\/\" \/>\n<meta property=\"og:locale\" content=\"id_ID\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"VBA: Cara menggabungkan sel dengan nilai yang sama - Statorials\" \/>\n<meta property=\"og:description\" content=\"Tutorial ini menjelaskan cara menggabungkan sel dengan nilai yang sama di Excel menggunakan VBA, beserta contohnya.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/statorials.org\/id\/vba-menggabungkan-sel-dengan-nilai-yang-sama\/\" \/>\n<meta property=\"og:site_name\" content=\"Statorials\" \/>\n<meta property=\"article:published_time\" content=\"2023-07-10T15:23:05+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/fusionne1.png\" \/>\n<meta name=\"author\" content=\"Benjamin anderson\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Ditulis oleh\" \/>\n\t<meta name=\"twitter:data1\" content=\"Benjamin anderson\" \/>\n\t<meta name=\"twitter:label2\" content=\"Estimasi waktu membaca\" \/>\n\t<meta name=\"twitter:data2\" content=\"1 menit\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/statorials.org\/id\/vba-menggabungkan-sel-dengan-nilai-yang-sama\/\",\"url\":\"https:\/\/statorials.org\/id\/vba-menggabungkan-sel-dengan-nilai-yang-sama\/\",\"name\":\"VBA: Cara menggabungkan sel dengan nilai yang sama - Statorials\",\"isPartOf\":{\"@id\":\"https:\/\/statorials.org\/id\/#website\"},\"datePublished\":\"2023-07-10T15:23:05+00:00\",\"dateModified\":\"2023-07-10T15:23:05+00:00\",\"author\":{\"@id\":\"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81\"},\"description\":\"Tutorial ini menjelaskan cara menggabungkan sel dengan nilai yang sama di Excel menggunakan VBA, beserta contohnya.\",\"breadcrumb\":{\"@id\":\"https:\/\/statorials.org\/id\/vba-menggabungkan-sel-dengan-nilai-yang-sama\/#breadcrumb\"},\"inLanguage\":\"id\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/statorials.org\/id\/vba-menggabungkan-sel-dengan-nilai-yang-sama\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/statorials.org\/id\/vba-menggabungkan-sel-dengan-nilai-yang-sama\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/statorials.org\/id\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Vba: cara menggabungkan sel dengan nilai yang sama\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/statorials.org\/id\/#website\",\"url\":\"https:\/\/statorials.org\/id\/\",\"name\":\"Statorials\",\"description\":\"Panduan anda untuk kompetensi statistik!\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/statorials.org\/id\/?s={search_term_string}\"},\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"id\"},{\"@type\":\"Person\",\"@id\":\"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81\",\"name\":\"Benjamin anderson\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"id\",\"@id\":\"https:\/\/statorials.org\/id\/#\/schema\/person\/image\/\",\"url\":\"http:\/\/statorials.org\/id\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg\",\"contentUrl\":\"http:\/\/statorials.org\/id\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg\",\"caption\":\"Benjamin anderson\"},\"description\":\"Halo, saya Benjamin, pensiunan profesor statistika yang menjadi guru Statorial yang berdedikasi. Dengan pengalaman dan keahlian yang luas di bidang statistika, saya ingin berbagi ilmu untuk memberdayakan mahasiswa melalui Statorials. Baca selengkapnya\",\"sameAs\":[\"http:\/\/statorials.org\/id\"]}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"VBA: Cara menggabungkan sel dengan nilai yang sama - Statorials","description":"Tutorial ini menjelaskan cara menggabungkan sel dengan nilai yang sama di Excel menggunakan VBA, beserta contohnya.","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/statorials.org\/id\/vba-menggabungkan-sel-dengan-nilai-yang-sama\/","og_locale":"id_ID","og_type":"article","og_title":"VBA: Cara menggabungkan sel dengan nilai yang sama - Statorials","og_description":"Tutorial ini menjelaskan cara menggabungkan sel dengan nilai yang sama di Excel menggunakan VBA, beserta contohnya.","og_url":"https:\/\/statorials.org\/id\/vba-menggabungkan-sel-dengan-nilai-yang-sama\/","og_site_name":"Statorials","article_published_time":"2023-07-10T15:23:05+00:00","og_image":[{"url":"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/fusionne1.png"}],"author":"Benjamin anderson","twitter_card":"summary_large_image","twitter_misc":{"Ditulis oleh":"Benjamin anderson","Estimasi waktu membaca":"1 menit"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/statorials.org\/id\/vba-menggabungkan-sel-dengan-nilai-yang-sama\/","url":"https:\/\/statorials.org\/id\/vba-menggabungkan-sel-dengan-nilai-yang-sama\/","name":"VBA: Cara menggabungkan sel dengan nilai yang sama - Statorials","isPartOf":{"@id":"https:\/\/statorials.org\/id\/#website"},"datePublished":"2023-07-10T15:23:05+00:00","dateModified":"2023-07-10T15:23:05+00:00","author":{"@id":"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81"},"description":"Tutorial ini menjelaskan cara menggabungkan sel dengan nilai yang sama di Excel menggunakan VBA, beserta contohnya.","breadcrumb":{"@id":"https:\/\/statorials.org\/id\/vba-menggabungkan-sel-dengan-nilai-yang-sama\/#breadcrumb"},"inLanguage":"id","potentialAction":[{"@type":"ReadAction","target":["https:\/\/statorials.org\/id\/vba-menggabungkan-sel-dengan-nilai-yang-sama\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/statorials.org\/id\/vba-menggabungkan-sel-dengan-nilai-yang-sama\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/statorials.org\/id\/"},{"@type":"ListItem","position":2,"name":"Vba: cara menggabungkan sel dengan nilai yang sama"}]},{"@type":"WebSite","@id":"https:\/\/statorials.org\/id\/#website","url":"https:\/\/statorials.org\/id\/","name":"Statorials","description":"Panduan anda untuk kompetensi statistik!","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/statorials.org\/id\/?s={search_term_string}"},"query-input":"required name=search_term_string"}],"inLanguage":"id"},{"@type":"Person","@id":"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81","name":"Benjamin anderson","image":{"@type":"ImageObject","inLanguage":"id","@id":"https:\/\/statorials.org\/id\/#\/schema\/person\/image\/","url":"http:\/\/statorials.org\/id\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg","contentUrl":"http:\/\/statorials.org\/id\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg","caption":"Benjamin anderson"},"description":"Halo, saya Benjamin, pensiunan profesor statistika yang menjadi guru Statorial yang berdedikasi. Dengan pengalaman dan keahlian yang luas di bidang statistika, saya ingin berbagi ilmu untuk memberdayakan mahasiswa melalui Statorials. Baca selengkapnya","sameAs":["http:\/\/statorials.org\/id"]}]}},"yoast_meta":{"yoast_wpseo_title":"","yoast_wpseo_metadesc":"","yoast_wpseo_canonical":""},"_links":{"self":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/posts\/4497"}],"collection":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/comments?post=4497"}],"version-history":[{"count":0,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/posts\/4497\/revisions"}],"wp:attachment":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/media?parent=4497"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/categories?post=4497"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/tags?post=4497"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}