こんにちは。> > txtA=cells(x,y).text> > ではどうでしょう。良くないですね。> xlSheet.Columns(1).ColumnWidth = 8ColumnWidth がよく効いていますね。ColumnWidth = AutoFit か Len(Value) で幅調整したら良いかも。