エクセルE列セルに数字入力(1・2・3・4・

Writer: admin Type: schwart Date: 2019-01-29 00:00
エクセルE列セルに数字入力(1・2・3・4・・)、H列セルにアルファベット入力(A・A・B・B・C・・)があって、H列セルのアルファベット入力が(上下セルで)異なった場合に、異なったセルより2行下にE列セル数字とH列セルのアルファベットを2行空けて下のセルにデータ(数字)のみをズラす(表示をずらす)方法はありますか?関数式でもマクロでも構いませんので教えて頂きたくあまり、関数式・マクロとも詳しくありませんが教えてください。どうぞ宜しくお願いします。###P1に=IF(ROW(H1)=1,1,IF(H1="","",IF(H1=INDIRECT("H"&ROW(H1)-1),INDIRECT("P"&ROW(H1)-1)+1,INDIRECT("P"&ROW(H1)-1)+3)))下にコピーJ1=IF(ROW(P1)=1,1,IF(MATCH(ROW(P1),P:P)=MATCH(ROW(P1)-1,P:P),"",MATCH(ROW(P1),P:P)))下にコピーM1=IF(J1="","",INDEX(H:H,MATCH(ROW(A1),P:P)))下にコピー###回答を教えて頂き有難う御座います。思ってた通りに出来ました。ちなみにエクセルE列セルにバラバラの数字入力(14・16・10・9・・等)、H列セルにアルファベット入力(A・A・B・B・C・・)があって、H列セルのアルファベット入力が(上下セルで)異なった場合に、異なったセルより2行下にE列セル数字とH列セルのアルファベットを同時に2行空けて下のセルにデータ(数字・アルファベット)をズラす(表示をずらす)関数式はありますか?何回も質問をしてしまい申し訳ありませんが関数式詳しくありませんので教えてください。宜しくお願いします。###ありがとうございます。関数式初心者にも関わらず教えて頂きありがとうございました。勉強になりました。###A,A,B,・・・をK列に書き出す。K1:=H1&""K2:=IF(K1=H2,K1,"")K3:=IF(K1&K2="",INDEX($H$1:$H$1000,ROW(H3)-COUNTBLANK($K$1:K2)),IF(COUNTIF($K$1:K2,K2)<COUNTIF($H$1:$H$1000,K2),K2,""))&""下へコピーJ1:=IF(K1="","",1)J2:=IF(K2="","",LOOKUP(10000,$J$1:J1)+1)下へコピーナイス0
###関数のみで対応する方法です。作業列を作って対応します。例えばP1セルには1を入力してからP2セルには次の式を入力して下方にドラッグコピーします。=IF(H2="","",IF(H2=H1,P1+1,P1+3))その後に並び替えた表をJ列からM列に表示させるとしてJ1セルには次の式を入力してからM1セルまで横にドラッグコピーしたのちに下方にもドラッグコピーします。=IFERROR(IF(INDEX($E:$H,MATCH(ROW(A1),$P:$P,0),COLUMN(A1))="","",INDEX($E:$H,MATCH(ROW(A1),$P:$P,0),COLUMN(A1))),"")なお、作業列が目障りでしたらその列を選択して「非表示」にすればよいでしょう。ナイス0
###以下の方法でも1.J1のセルに1を入力2.J2のセルに__=IF(H1=H2,J1,J1+1)3.J2のセルを下のJ10のセルまでコピー4.J11とJ12のセルに1を入力5.J13のセルに__=J11+16.J13のセルを下のJ18のセルまでコピー(ここまでが画像の上)7.J列をキーにして昇順で並び替えを行う(画像の下)8.J列をクリアか削除する###下記で 試して ください。 For I = Cells(Rows.Count, "H").End(xlUp).Row To 2 Step -1 If Cells(I, "H") <> Cells(I - 1, "H") Then Rows(I & ":" & I + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End If Nextナイス0

 

TAG