excel - Merge Cells with Duplicate Data VBA -


i'm trying macro working merge cells duplicate data. work on small numbers of cells, following error if try run on larger group of cells. i'm not sure if there's more efficient way excel run through this.

run-time error '1004': method 'range' of object '_global' failed

here's code:

sub mergeduplicates()  dim vardata variant, varcontent variant  dim strmyrange string  application.screenupdating = false  application.displayalerts = false      strmyrange = activecell.address      varcontent = activecell.value      each vardata in selection.cells          if vardata.value <> varcontent              strmyrange = strmyrange & ":" & cells(vardata.row - 1, vardata.column).address & ", " & cells(vardata.row, vardata.column).address              varcontent = cells(vardata.row, vardata.column).value          end if      next      strmyrange = strmyrange & mid(selection.address, instr(1, selection.address, ":"), len(selection.address))      range(strmyrange).merge  application.displayalerts = true  application.screenupdating = true  end sub

i have recreated issue using code posted , working me. did suggested , put merge loop. split strmyrange using comma delimiter. set test ":" character in testarray(0). if in target string, know ready merge. after reset strmyrange testarray(1) beginning of next range.

note: able step through debugger 100 cells , worked. tried running without code breakpoints, merged selected cells. put 1 second wait statement right before final merge , seems work.

here code:

 sub mergeduplicates()  dim vardata variant, varcontent variant  dim strmyrange string  dim testarray() string  dim target string  dim pos integer     application.screenupdating = false application.displayalerts = false  strmyrange = activecell.address  varcontent = activecell.value  each vardata in selection.cells      if vardata.value <> varcontent          strmyrange = strmyrange & ":" & cells(vardata.row - 1, vardata.column).address & ", " & cells(vardata.row, vardata.column).address          testarray = split(strmyrange, ",")          target = testarray(0)          pos = instr(target, ":")          if (pos > 0)             range(target).merge             strmyrange = testarray(1)          end if          varcontent = cells(vardata.row, vardata.column).value      end if  next  strmyrange = strmyrange & mid(selection.address, instr(1, selection.address, ":"), len(selection.address))  application.wait (now + #12:00:01 am#) 'this helps application run ok if there no breakpoints.  range(strmyrange).merge  application.displayalerts = true  application.screenupdating = true  end sub

Comments

Post a Comment

Popular posts from this blog

php - Wordpress website dashboard page or post editor content is not showing but front end data is showing properly -

Image
recently have uploaded wordpress site onto server. have uploaded wordpress site in sub-folder under root folder ../root(domain root folder)/wordpress (where host wordpress folder). now problem content data in page or post in dashboard of wordpress admin panel not showing - see image. but data showing in front view - see image. if not browser cache issue , not issue happened tinymce editor during upgrade; try add config file: define('concatenate_scripts', false);
Read more

How to get the ip address of VM and use it to configure SSH connection dynamically in Ansible -

i trying ip address of vm , trying use establish ssh vm. following script: --- - hosts: localhost become: yes connection: local gather_facts: false serial: 1 vars_files: - createvmvars.yml tasks: - name: gathering vm info. vsphere_guest: vcenter_hostname: "{{vcenter_hostname}}" username: "{{vcenter_username}}" password: "{{vcenter_password}}" guest: "{{guest_name}}" vmware_guest_facts: yes register: var - debug: msg="{{var.ansible_facts.hw_eth0.ipaddresses[0]}}" - name: establishing ssh connection. script: /home/shasha/devops/scripts/ssh_configure.sh "{{var.ansible_facts.hw_eth0.ipaddresses[0]}}" following content of ssh_configure.sh : #!/bin/sh ssh-keygen -t rsa ssh-copy-id $1 but when running playbook, getting following error while executing third task: error! 'var' undefined but debug module(second task) printin
Read more

javascript - Get parameter of GET request -

i make request: createxhrrequest( "get", fileurl, function( err, response ) { if( err ) { alert( "error get!" ); } alert(response); }); and full response: { "status" : "ok", "message" : "jvberi0xljqkjdduxdgkmy how can jvberi0xlj ? i try response.message , response["message"]. nothing works. just simple access this: var json = json.parse(response); json.message
Read more