vba - How to Tranpose Array with .EntireRow? -
vba - How to Tranpose Array with .EntireRow? -
i have next array stores values found search function.
if foundcells nil debug.print "value not found" else each foundcell in foundcells array1(i) = foundcell.value 'instead of .value can utilize .row .entirerow doesn't work = + 1 next foundcell j = - 1 = 1 end if
i extract info array using transpose works '.value' , '.row' can not extract whole row each found value '.entirerow'.
range("a1:a" & ubound(array1) + 1) = worksheetfunction.transpose(array1)
i tried alter range in several way's, nil seem fit .entirerow criteria.
update after comment loannis:
how can utilize entirerow in array transpose rows target location based on search results stored in foundcell?
i using findall search function cpearson http://www.cpearson.com/excel/findall.aspx
you can extract entire row 2 dimensional array.
sub methodname() dim array1 'get cell values in row array1 = cells(1, 1).entirerow dim integer 'loop through array , output contents 2nd row = 1 ubound(array1, 2) cells(2, i).value = array1(1, i) next end sub
arrays vba excel-vba range transpose
Comments
Post a Comment