他のソフトからExcelにエクスポートしたファイルにはよく見えない空白が存在します。
お陰で意図したとおりにVBAやら関数が動かないことがまれにあります。
事前にその見えない空白を削除するVBAのコードです。
Sub 空白削除()
Dim a As Integer
Dim b As Integer
a = 1
b = 1
For a = 1 To 100
For b = 1 To 100
Cells(a, b).Value = Trim(Cells(a, b))
Next b
b = 1
Next a
End Sub
このコードを実行すると、縦横100のセルの空白を削除します。
数字の100を変更すれば、範囲の増減ができます。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
献血の血液検査の結果がもう帰ってきました。
お酒を止めたのにγGTPが上限を遥かに超えていました。。。
ネットで調べるとトレーニングで上がる傾向があるようで、
確かに前日も10ｷﾛ走ったし、献血3時間前にも10キロ走りました。
何日か安静にして、もう一度調べてもらおうと思います。
本日も最後までお読みいただきありがとうございます。
