|
▼はってんちゅう さん:
>このSelect Case使用ですと、管理担当者(SY-A等)は複数存在するので、
>SY-A担当になっているコラムの横すべてにコラム挿入されてしまいますよね。
そうです。
>
>管理担当別に製品は複数並んでいるので、それぞれの管理担当の最終製品のコラムの右に管理担当の合計算出の為のコラムを挿入したいのです。
>以下、簡易に表したデータ表の配列です。
>
>A B C D E F G H I J K L M N....コラム
>あ か さ た な は ま ....製品名 7行目
>○ ○ ○ ● ● ● ◎ ....管理担当 8行目
>1 2 3 4 5 6 7 8 9 10 11 12 13 14 ....必ず明記のある言葉 9行目
では、Sub Try1() を修正して、以下のようにしてください。
作業はやはり一番右から左に、と遡っていきます。
Sub Try2()
Dim col As Long 'コラム用
Dim colZ As Long '最後のコラム
Dim sOld As String, sNew As String
colZ = Cells(8, Columns.Count).End(xlToLeft).Column
For col = colZ To 2 Step -2 '最終列から2列目まで-2列Stepで
sNew = Cells(8, col).Value
If sNew <> sOld Then '前の名前と違っていたら、
sOld = sNew
Columns(col + 2).Insert '列挿入
End If
Next
End Sub
|
|