split the statement in a excel file column using a specific keyword -


i have excel file data in multiple columns. need select 1 column file , separate data in each cell of column using specific keyword in cell. keyword same each cell

enter image description here

now want is, want separate each alphabet cell , give them title 1 in image below

enter image description here

the following vba code should trick:

option explicit  public sub mainsub()  dim arr variant dim srcrow long, destrow long dim wssrc worksheet, wsdest worksheet  set wssrc = thisworkbook.worksheets("sheet1") set wsdest = thisworkbook.worksheets.add(before:=wssrc)  wsdest.cells(1, 1).value2 = "letter" wsdest.cells(1, 2).value2 = "value" destrow = 2  srcrow = 1 wssrc.cells(wssrc.rows.count, "a").end(xlup).row     if instr(1, wssrc.cells(srcrow, 1).value2, "half:", vbtextcompare)         arr = split(wssrc.cells(srcrow, 1).value2, "half:")(0)         arr = split(arr, "/")         destrow = writetodest(arr, "full", destrow, wsdest)         arr = split(wssrc.cells(srcrow, 1).value2, "half:")(1)         arr = split(arr, "/")         destrow = writetodest(arr, "half", destrow, wsdest)     else         arr = split(wssrc.cells(srcrow, 1).value2, "/")         destrow = writetodest(arr, "full", destrow, wsdest)     end if next srcrow  end sub  private function writetodest(arr variant, halforfull string, destrow long, wsdest worksheet) long  dim element long  element = lbound(arr) ubound(arr)     if trim(arr(element)) <> vbnullstring         wsdest.cells(destrow, 1).value2 = ucase(trim(arr(element)))         wsdest.cells(destrow, 2).value2 = "full"         destrow = destrow + 1     end if next element  writetodest = destrow  end function

just copy of empty module , adjust name of sheet in set wssrc = thisworkbook.worksheets("sheet1") actual name of sheet data resides.

the above code insert new sheet , process / output data described in post above.


-

Comments

Post a Comment

Popular posts from this blog

amazon web services - S3 Pre-signed POST validate file type? -

i know it's possible put limit on file size content-length-range header. possible validate file type? https://docs.aws.amazon.com/amazons3/latest/dev/httppostforms.html#policyconditions i see there content-type header, if set say, audio/mp3 allow mp3 files , return error if file not mp3? i found previous question answers mention validating file size: s3 direct upload restricting file size , type you can specify content-type @ post request. you can specify @ signature, post must done content-type: { "expiration": "2007-12-01t12:00:00.000z", "conditions": [ {"acl": "public-read" }, {"bucket": "johnsmith" }, {"content-type: "audio/mp3"} ] } creating html form (using aws signature version 4) edit: @ previous question found, checking content-type.
Read more

c# - Check Keyboard Input Winforms -

i wondering if instead of doing this protected override void onkeydown(keyeventargs e) { if (e.keycode == keys.a) console.writeline("the key down."); } i set bool method , this: if(keydown(keys.a)) // whatever here i've been sitting here ages trying figure out how it. can't wrap head around it. in case wondering, plan call bool inside different method, check input. since want perform action after pressing key, using keydown event enough. but in cases suppose want check if specific key down in middle of process, can use getkeystate method way: [dllimport("user32.dll", charset = charset.auto, exactspelling = true)] public static extern short getkeystate(int keycode); public const int key_pressed = 0x8000; public static bool iskeydown(keys key) { return convert.toboolean(getkeystate((int)key) & key_pressed); } you should know, each time check key state using example iskeydown(keys.a) method returns true if ke...
Read more