|
列の入替を下記のようにしてみたのですが最初のセルがCells(a, 6) = txt
ですとうまく動きません。どこがいけないのでしょうか
Private Sub Button集計_Click()
a = 2
Do While Cells(a, 6) = txt‘txt=combo科目.textです
a = a + 1
Do While Cells(a, 6) <> txt
Cells(a, 4).Select ‘F1=txtでない場合F1とD1を入れ替える
Selection.Cut
Cells(a, 10).Select
ActiveSheet.Paste
Cells(a, 6).Select
Selection.Cut
Cells(a, 4).Select
ActiveSheet.Paste
Cells(a, 10).Select
Selection.Cut
Cells(a, 6).Select
ActiveSheet.Paste
If Cells(a, 6).Value = "" Then Exit Do
a = a + 1
Loop
Loop
End Sub
よろしくお願いいたします。
|
|