1

下部のコードは、セル (1,b) が空であるかどうかをチェックしてから、列にコピーし、列にテキストを実行します。ただし、この最初のセルだけでなく、列 b が空かどうかを確認したいと思います。簡単なはずですが、行った変更は機能しません。たとえば、私は試しました：

If Excel.WorksheetFunction.CountBlank(Excel.Sheets("TOP LINE").Columns(b)) <> 1048576 Then
b = b+1

それ以外の：

If Cells(1, b) <> "" Then b = b + 1

助けてください！

For a = 2 To 60

If Excel.WorksheetFunction.CountBlank(Excel.Sheets("Paste In").Columns(a)) <> 1048576 Then

    Excel.Sheets("Paste In").Columns(a).Copy

    b = Excel.Sheets("TOP LINE").Cells(1, Columns.Count).End(Excel.xlToLeft).column

    Excel.Sheets("TOP LINE").Select


    If Cells(1, b) <> "" Then b = b + 1


        Excel.Sheets("TOP LINE").Columns(b).EntireColumn.Select
        Excel.ActiveSheet.Paste

        Excel.Application.CutCopyMode = False
        Selection.TextToColumns Destination:=Cells(1, b), DataType:=xlDelimited, _
                TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
                Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
                :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
                Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True

End If

次の

4

1 に答える 1

3

ワークシート関数を使用して、列インデックス a の列の空でないセルをカウントできます。

If Application.WorksheetFunction.CountA(Excel.Sheets("Paste In").Columns(a)) > 0 Then

コードに a と b の両方がある場合は、両方のインスタンスにこのコードを使用してください。

2 行目 ( If Excel.WorksheetFunction.CountBlank(Excel.Sheets("Paste In").Columns(a)) <> 1048576 Then) は次のようになります。

If Application.WorksheetFunction.CountA(Excel.Sheets("Paste In").Columns(a)) > 0 Then

6 行目 ( If Cells(1, b) <> "" Then b = b + 1) は次のようになります。

If Application.WorksheetFunction.CountA(Excel.Sheets("TOP LINE").Columns(b)) > 0 Then

于 2012-11-07T13:18:49.053 に答える