|
▼Ned さん:
こんばんは。
教えていただいたコードでうまく表示できました!
どうもありがとうございました!
>こんにちは。あまり良い案ではないかもしれませんが
>
>With Range("I2:I" & Range("B65536").End(xlUp).Row)
> .NumberFormat = "General"
> .Formula = _
> "=IF(D2<>D3,""mark"","""")&IF(D1=D2,I1&"","","""")& F2&""/""" _
> & "&LOOKUP(H2,{0,1,2,99},{""00"",""01"",""02"",""99""})"
> .NumberFormat = "@"
> .Value = .Value
> Range("I:I").AutoFilter field:=1, Criteria1:="<>mark*"
> .SpecialCells(xlCellTypeVisible).ClearContents
> ActiveSheet.AutoFilterMode = False
> .Replace what:="mark", replacement:="'", lookat:=xlPart
>End With
>
>と、文字列にして良ければ。また、
>replacement:="'"
>で余計なものがつきますが、これじゃダメでしょうか?
|
|