EXCEL マクロ

質問

EXCEL マクロ
Ｂ１セルからＦ１
Ｂ２セルからＦ２
Ｂ３セルからＦ３
までとに文字"Ｔ"のデータであるセルがあります。
(1)各行で Ｔという文字の入っている、最左端のセルから最右端のセルまですべて
同じ文字Ｔで埋めるマクロをどのようにかけばいいですか。

回答No.2

cafe_au_lait · ベストアンサー

補足欄を拝見する限り、Tは2つだけでしょうか？

Option Explicit

Sub sample()

Dim i As Integer
Dim j As Integer
Dim k As Boolean

For i = 1 To 3
k = False
For j = 2 To 6
If k Then
If Cells(i, j).Value = "T" Then
Exit For
Else
Cells(i, j).Value = "T"
End If
Else
If Cells(i, j).Value = "T" Then
k = True
End If
End If
Next j
Next i
End Sub

お礼

Sub sample()

Dim i As Integer
Dim j As Integer
Dim k As Boolean

For i = 1 To 3
k = False
For j = 2 To 6
If k Then
If Cells(i, j).Value = "T" Then
Exit For
Else
Cells(i, j).Value = "T"
End If
Else
If Cells(i, j).Value = "T" Then
k = True
End If
End If
Next j
Next i
End Sub
若干修正させていただきましたが、素晴らしい。
仕様通り動きます。
Ｋ＝ＦＡＬＳＥというのは、どういうことをやっているのでしょうか。

とりあえず厚くお礼申しあげます。

回答No.3

cafe_au_lait

＞Ｋ＝ＦＡＬＳＥというのは、どういうことをやっているのでしょうか。

k=True,k=Falseでも、k=0,k=1でもいいのですが、
セルの値がTだったときにそれが一つ目か二つ目かを判断するために用いています。
k=Falseのときに見つけたTは一つ目と判断し、k=Trueとします。以後のセルはTで埋めます。
k=Trueのときに見つけたTは二つ目と判断し、ループを抜けます。
iのループの最初ではまた一つ目から探し始めるので、k=Falseとしてリセットする必要があります。

お礼

よくわかりました。ご親切感謝いたします。

回答No.1

yuji_from_kyoto

意味が分かりにくいです。

"Ｔ"文字が入っている、最左端のセルから最右端のセルまですべて
同じ文字Ｔで埋める
って、元々"Ｔ"で埋まっているセルをまた"Ｔ"で埋めるんですか？

マクロじゃなくて表計算や手動でやっても、作業時間的に変わらないと思うのですが？

お礼

ＣＡＦＥＡＵＬＡＩＴさんへ
若干修正というのは、コピーしたとき動かなかったので私がコピーミスしていたためらしい。
修正なく動きました。失礼しました。

補足

Ｔ　　　　　　　　Ｔ
　　　Ｔ　　　　　　　　　　　　　　　　　　　Ｔ
　　　　　　　　ＴＴ
となっていたら
　　　　　　　　ＴＴＴＴＴＴＴＴＴＴＴＴ
　　　ＴＴＴＴＴＴＴＴＴＴＴＴＴＴＴＴＴＴＴＴＴ
　　　　　　　　ＴＴ
とすることですが。