{"id":659,"date":"2023-09-30T03:39:02","date_gmt":"2023-09-30T03:39:02","guid":{"rendered":"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/"},"modified":"2023-12-06T11:38:03","modified_gmt":"2023-12-06T11:38:03","slug":"inserir-uma-coluna","status":"publish","type":"page","link":"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/","title":{"rendered":"Como inserir colunas usando vba?"},"content":{"rendered":"<div class=\"excel-before-content-2\" id=\"excel-1933644552\"><script type=\"text\/javascript\">\r\n\tatOptions = {\r\n\t\t'key' : 'c1158f160081d6540a8409e6925dab94',\r\n\t\t'format' : 'iframe',\r\n\t\t'height' : 250,\r\n\t\t'width' : 300,\r\n\t\t'params' : {}\r\n\t};\r\n<\/script>\r\n<script type=\"text\/javascript\" src=\"\/\/www.highperformanceformat.com\/c1158f160081d6540a8409e6925dab94\/invoke.js\"><\/script><\/div><div class=\"excel-before-content\" id=\"excel-1994135007\"><script type=\"text\/javascript\">\r\n\tatOptions = {\r\n\t\t'key' : 'c1158f160081d6540a8409e6925dab94',\r\n\t\t'format' : 'iframe',\r\n\t\t'height' : 250,\r\n\t\t'width' : 300,\r\n\t\t'params' : {}\r\n\t};\r\n<\/script>\r\n<script type=\"text\/javascript\" src=\"\/\/www.highperformanceformat.com\/c1158f160081d6540a8409e6925dab94\/invoke.js\"><\/script><\/div> <p>Neste tutorial, veremos como inserir uma coluna usando c\u00f3digo VBA no Excel. Tamb\u00e9m exploraremos quais s\u00e3o as diferentes maneiras de escrever uma macro para isso.<\/p><h2 class=\"wp-block-heading\"> <strong>Insira uma \u00fanica coluna usando VBA<\/strong><\/h2><p> Para inserir uma coluna usando c\u00f3digo VBA, voc\u00ea precisa usar a propriedade \u201cColuna inteira\u201d com o m\u00e9todo \u201cInserir\u201d. Com a propriedade da coluna inteira, voc\u00ea pode referenciar a coluna inteira usando uma c\u00e9lula e depois inserir uma nova coluna. Por padr\u00e3o, ele inserir\u00e1 uma coluna antes da c\u00e9lula que voc\u00ea mencionou. <\/p><div class=\"wp-block-image\"><figure class=\"aligncenter size-large is-resized\"><img loading=\"lazy\" decoding=\"async\" class=\"wp-image-54138\" src=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-inserer-une-seule-colonne-en-utilisant-vba.png\" sizes=\"auto, \" srcset=\"\" alt=\"inserir coluna \u00fanica usando vba\" width=\"580\" height=\"279\"><\/figure><\/div><ol type=\"1\"><li> Primeiro, especifique uma c\u00e9lula usando o objeto range.<\/li><li> Agora insira um ponto (.) para obter a lista de propriedades e m\u00e9todos.<\/li><li> Depois disso, selecione a propriedade \u201cColuna inteira\u201d ou digite-a.<\/li><li> Ao final, insira um ponto final (.) novamente e selecione o m\u00e9todo \u201cInserir\u201d ou digite-o.<\/li><\/ol><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">Range(\"A1\").EntireColumn.Insert<\/code><\/pre><p> Seu c\u00f3digo est\u00e1 pronto aqui para inserir uma coluna. Agora, quando voc\u00ea executa este c\u00f3digo, ele insere instantaneamente uma nova coluna antes da coluna A.<\/p><h2 class=\"wp-block-heading\"> <strong>Insira v\u00e1rias colunas<\/strong><\/h2><p> Existem duas maneiras de inserir v\u00e1rias colunas em uma planilha que encontrei. O primeiro \u00e9 o mesmo m\u00e9todo de inser\u00e7\u00e3o que usamos no exemplo acima. Com isso, voc\u00ea precisa especificar um intervalo de colunas cujo n\u00famero seja igual ao n\u00famero da coluna que deseja inserir.<\/p><p> Agora suponha que voc\u00ea queira inserir 5 colunas ap\u00f3s a coluna C caso possa usar um c\u00f3digo como este. <\/p><div class=\"wp-block-image\"><figure class=\"aligncenter size-large is-resized\"><img loading=\"lazy\" decoding=\"async\" class=\"wp-image-54139\" src=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/2-inserer-plusieurs-colonnes.png\" sizes=\"auto, \" srcset=\"\" alt=\"inserir m\u00faltiplas colunas\" width=\"739\" height=\"301\"><\/figure><\/div><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">Range(\"C:G\").EntireColumn.Insert<\/code><\/pre><p> Para ser sincero, n\u00e3o achei esse m\u00e9todo muito \u00fatil porque voc\u00ea precisa alterar o intervalo se quiser alterar o c\u00f3digo em si. Ent\u00e3o, aqui est\u00e1 o segundo m\u00e9todo.<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">'variables to use in the code Dim iCol As Long Dim iCount As Long Dim i As Long 'to get the number of columns that you want to insert with an input box iCount = InputBox(Prompt:=\"How many column you want to add?\") 'to get the column number where you want to insert the new column iCol = InputBox _ (Prompt:= _ \"After which column you want to add new column? (Enter the column number)\") 'loop to insert new column(s) For i = 1 To iCount Columns(iCol).EntireColumn.Insert Next i<\/code><\/pre><p> Ao executar este c\u00f3digo, ele solicita que voc\u00ea insira o n\u00famero de colunas que deseja adicionar e, em seguida, o n\u00famero da coluna onde deseja adicionar todas essas novas colunas. Ele usa um <a href=\"https:\/\/exceladvisor.org\/pt\/para-o-circuito\/\">loop FOR (For Next)<\/a> para inserir o n\u00famero de colunas que voc\u00ea mencionou.<\/p><h2 class=\"wp-block-heading\"> <strong>Inserir colunas com base nos valores das c\u00e9lulas<\/strong><\/h2><p> Se quiser inserir colunas com base em um valor de c\u00e9lula, voc\u00ea pode usar o c\u00f3digo a seguir.<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">Dim iCol As Long Dim iCount As Long Dim i As Long iCount = Range(\"A1\").Value iCol = Range(\"B1\").Value For i = 1 To iCount Columns(iCol).EntireColumn.Insert Next i<\/code><\/pre><p> Quando voc\u00ea executa esta macro, ela pega o n\u00famero de colunas da c\u00e9lula A1 e a coluna \u00e0 qual deseja adicionar colunas da c\u00e9lula B1.<\/p><h2 class=\"wp-block-heading\"> <strong>Inserir uma coluna sem formata\u00e7\u00e3o<\/strong><\/h2><p> Ao inserir uma coluna onde a coluna acima possui uma formata\u00e7\u00e3o espec\u00edfica, nesse caso a coluna tamb\u00e9m ter\u00e1 essa formata\u00e7\u00e3o automaticamente. E a maneira mais f\u00e1cil de lidar com essa situa\u00e7\u00e3o \u00e9 usar formatos claros. Considere o seguinte c\u00f3digo.<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">Columns(7).EntireColumn.Insert Columns(7).ClearFormats<\/code><\/pre><p> Quando voc\u00ea executa o c\u00f3digo acima, ele insere uma nova coluna antes da <sup>7\u00aa<\/sup> coluna. Agora o que acontece \u00e9 que quando voc\u00ea insere uma coluna antes da <sup>7\u00aa<\/sup> coluna, essa nova coluna passa a ser a <sup>7\u00aa<\/sup> coluna, ent\u00e3o a segunda linha de c\u00f3digo limpa os formatos dela.<\/p><h2 class=\"wp-block-heading\"> <strong>Inserir uma coluna copiada<\/strong><\/h2><p> Voc\u00ea tamb\u00e9m pode usar o mesmo m\u00e9todo para copiar uma coluna e inseri-la em outro lugar. Veja o c\u00f3digo a seguir.<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">Application.CutCopyMode = False With Worksheets(\"Data\") .Columns(5).Copy .Columns(9).Insert Shift:=xlShiftDown End With Application.CutCopyMode = True<\/code><\/pre><div class=\"gb-container gb-container-4db6181c gb-container-mt\"> <a class=\"gb-button gb-button-c5897111 gb-button-text gb-button-mt-button\" href=\"https:\/\/exceladvisor.org\/pt\/vba\/\">O que \u00e9 VBA<\/a><h2 class=\"gb-headline gb-headline-665e5f6b gb-headline-text gb-headline-mt-heading\"> Tutoriais relacionados <\/h2><div class=\"gb-grid-wrapper gb-grid-wrapper-a20baf7c gb-grid-wrapper-mt-grid\"><div class=\"gb-grid-column gb-grid-column-65ddf67e\"><div class=\"gb-container gb-container-65ddf67e\"><ul><li> <a href=\"https:\/\/exceladvisor.org\/pt\/numero-de-linhas\/\">Contar linhas usando VBA no Excel<\/a><\/li><li> <a href=\"https:\/\/exceladvisor.org\/pt\/fonte-de-caracteres\/\">Fonte Excel VBA (cor, tamanho, tipo e negrito)<\/a><\/li><li> <a href=\"https:\/\/exceladvisor.org\/pt\/ocultar-mostrar-linha-da-coluna\/\">Excel VBA Ocultar e mostrar uma coluna ou linha<\/a><\/li><li> <a href=\"https:\/\/exceladvisor.org\/pt\/intervalo-1\/\">Intervalo Excel VBA \u2013 Trabalhando com intervalo e c\u00e9lulas<\/a><\/li><li> <a href=\"https:\/\/exceladvisor.org\/pt\/fronteiras\/\">Aplicar bordas a uma c\u00e9lula usando VBA no Excel<\/a> <\/li><\/ul><\/div><\/div><div class=\"gb-grid-column gb-grid-column-50067b57\"><div class=\"gb-container gb-container-50067b57\"><\/div><\/div><\/div><\/div>","protected":false},"excerpt":{"rendered":"","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"open","ping_status":"closed","template":"","meta":{"ub_ctt_via":"","footnotes":""},"class_list":["post-659","page","type-page","status-publish","hentry"],"featured_image_src":null,"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v25.4 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>\u25b7 Como inserir colunas usando VBA no Excel?<\/title>\n<meta name=\"description\" content=\"Para inserir uma coluna usando c\u00f3digo VBA, voc\u00ea precisa usar a propriedade \u201cColuna inteira\u201d com o m\u00e9todo \u201cInserir\u201d.\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/\" \/>\n<meta property=\"og:locale\" content=\"pt_PT\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"\u25b7 Como inserir colunas usando VBA no Excel?\" \/>\n<meta property=\"og:description\" content=\"Para inserir uma coluna usando c\u00f3digo VBA, voc\u00ea precisa usar a propriedade \u201cColuna inteira\u201d com o m\u00e9todo \u201cInserir\u201d.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/\" \/>\n<meta property=\"og:site_name\" content=\"Excel Advisor\" \/>\n<meta property=\"article:modified_time\" content=\"2023-12-06T11:38:03+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-inserer-une-seule-colonne-en-utilisant-vba.png\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Tempo estimado de leitura\" \/>\n\t<meta name=\"twitter:data1\" content=\"3 minutos\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/\",\"url\":\"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/\",\"name\":\"\u25b7 Como inserir colunas usando VBA no Excel?\",\"isPartOf\":{\"@id\":\"https:\/\/exceladvisor.org\/pt\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/#primaryimage\"},\"image\":{\"@id\":\"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/#primaryimage\"},\"thumbnailUrl\":\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-inserer-une-seule-colonne-en-utilisant-vba.png\",\"datePublished\":\"2023-09-30T03:39:02+00:00\",\"dateModified\":\"2023-12-06T11:38:03+00:00\",\"description\":\"Para inserir uma coluna usando c\u00f3digo VBA, voc\u00ea precisa usar a propriedade \u201cColuna inteira\u201d com o m\u00e9todo \u201cInserir\u201d.\",\"breadcrumb\":{\"@id\":\"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/#breadcrumb\"},\"inLanguage\":\"pt-PT\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"pt-PT\",\"@id\":\"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/#primaryimage\",\"url\":\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-inserer-une-seule-colonne-en-utilisant-vba.png\",\"contentUrl\":\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-inserer-une-seule-colonne-en-utilisant-vba.png\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Lar\",\"item\":\"https:\/\/exceladvisor.org\/pt\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Como inserir colunas usando vba?\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/exceladvisor.org\/pt\/#website\",\"url\":\"https:\/\/exceladvisor.org\/pt\/\",\"name\":\"Excel Advisor\",\"description\":\"O seu guia definitivo para dominar os dados!\",\"publisher\":{\"@id\":\"https:\/\/exceladvisor.org\/pt\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/exceladvisor.org\/pt\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"pt-PT\"},{\"@type\":\"Organization\",\"@id\":\"https:\/\/exceladvisor.org\/pt\/#organization\",\"name\":\"Excel Advisor\",\"url\":\"https:\/\/exceladvisor.org\/pt\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"pt-PT\",\"@id\":\"https:\/\/exceladvisor.org\/pt\/#\/schema\/logo\/image\/\",\"url\":\"https:\/\/exceladvisor.org\/pt\/wp-content\/uploads\/2023\/12\/exceladvisor.org_.png\",\"contentUrl\":\"https:\/\/exceladvisor.org\/pt\/wp-content\/uploads\/2023\/12\/exceladvisor.org_.png\",\"width\":105,\"height\":36,\"caption\":\"Excel Advisor\"},\"image\":{\"@id\":\"https:\/\/exceladvisor.org\/pt\/#\/schema\/logo\/image\/\"}}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"\u25b7 Como inserir colunas usando VBA no Excel?","description":"Para inserir uma coluna usando c\u00f3digo VBA, voc\u00ea precisa usar a propriedade \u201cColuna inteira\u201d com o m\u00e9todo \u201cInserir\u201d.","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:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/","og_locale":"pt_PT","og_type":"article","og_title":"\u25b7 Como inserir colunas usando VBA no Excel?","og_description":"Para inserir uma coluna usando c\u00f3digo VBA, voc\u00ea precisa usar a propriedade \u201cColuna inteira\u201d com o m\u00e9todo \u201cInserir\u201d.","og_url":"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/","og_site_name":"Excel Advisor","article_modified_time":"2023-12-06T11:38:03+00:00","og_image":[{"url":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-inserer-une-seule-colonne-en-utilisant-vba.png","type":"","width":"","height":""}],"twitter_card":"summary_large_image","twitter_misc":{"Tempo estimado de leitura":"3 minutos"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/","url":"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/","name":"\u25b7 Como inserir colunas usando VBA no Excel?","isPartOf":{"@id":"https:\/\/exceladvisor.org\/pt\/#website"},"primaryImageOfPage":{"@id":"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/#primaryimage"},"image":{"@id":"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/#primaryimage"},"thumbnailUrl":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-inserer-une-seule-colonne-en-utilisant-vba.png","datePublished":"2023-09-30T03:39:02+00:00","dateModified":"2023-12-06T11:38:03+00:00","description":"Para inserir uma coluna usando c\u00f3digo VBA, voc\u00ea precisa usar a propriedade \u201cColuna inteira\u201d com o m\u00e9todo \u201cInserir\u201d.","breadcrumb":{"@id":"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/#breadcrumb"},"inLanguage":"pt-PT","potentialAction":[{"@type":"ReadAction","target":["https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/"]}]},{"@type":"ImageObject","inLanguage":"pt-PT","@id":"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/#primaryimage","url":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-inserer-une-seule-colonne-en-utilisant-vba.png","contentUrl":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-inserer-une-seule-colonne-en-utilisant-vba.png"},{"@type":"BreadcrumbList","@id":"https:\/\/exceladvisor.org\/pt\/inserir-uma-coluna\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Lar","item":"https:\/\/exceladvisor.org\/pt\/"},{"@type":"ListItem","position":2,"name":"Como inserir colunas usando vba?"}]},{"@type":"WebSite","@id":"https:\/\/exceladvisor.org\/pt\/#website","url":"https:\/\/exceladvisor.org\/pt\/","name":"Excel Advisor","description":"O seu guia definitivo para dominar os dados!","publisher":{"@id":"https:\/\/exceladvisor.org\/pt\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/exceladvisor.org\/pt\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"pt-PT"},{"@type":"Organization","@id":"https:\/\/exceladvisor.org\/pt\/#organization","name":"Excel Advisor","url":"https:\/\/exceladvisor.org\/pt\/","logo":{"@type":"ImageObject","inLanguage":"pt-PT","@id":"https:\/\/exceladvisor.org\/pt\/#\/schema\/logo\/image\/","url":"https:\/\/exceladvisor.org\/pt\/wp-content\/uploads\/2023\/12\/exceladvisor.org_.png","contentUrl":"https:\/\/exceladvisor.org\/pt\/wp-content\/uploads\/2023\/12\/exceladvisor.org_.png","width":105,"height":36,"caption":"Excel Advisor"},"image":{"@id":"https:\/\/exceladvisor.org\/pt\/#\/schema\/logo\/image\/"}}]}},"yoast_meta":{"yoast_wpseo_title":"","yoast_wpseo_metadesc":"","yoast_wpseo_canonical":""},"_links":{"self":[{"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/pages\/659","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/comments?post=659"}],"version-history":[{"count":1,"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/pages\/659\/revisions"}],"predecessor-version":[{"id":1092,"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/pages\/659\/revisions\/1092"}],"wp:attachment":[{"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/media?parent=659"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}