特定のテキスト/数値の組み合わせを区切って新しいセルに貼り付けてください。

Question

こんにちは、私はStackoverflowとVBAに一般的です。

私のテーブルの[Description]列に大きなデータセットがあります。 私はこの列から特定のデータを選択し、この特定のデータを私のtable1の別の列に貼り付ける方法を見つけようとしています。

たとえば、[説明]列には、テキストと請求書番号（例：FT022154）があります。このデータには違いがあり、場合によっては2つまたは3つの請求書番号がある場合もあります。 これらの請求書番号を切り離し、これらをコピーしてtable1の別の列に貼り付けることを考えました。

正直なところ、どこから始めたらいいのか分からず、特に自分の問題に関連するものが見つかりません。

EDIT 1（画像追加） Table 1 screenshot

だから、基本的に、私は、請求書の欄で必要な情報とそれを過ぎをコピーし、説明欄に情報を分割する必要はありません。 ありがとうございます！

Answer 1

このコードは私のために働いています。それを新しいモジュールにコピーし、シート名と列をワークブックに合わせて変更します。私のコードでは、列Cは説明であり、列Aは請求書です。また、あなたは、このコードがどのように機能するかについて質問があれば、私に教えてください今2

に

Sub invoiceSeparation() 


Dim tws As Worksheet 

Dim description() As String 

Dim fr, lr As Integer   'first row, last row of data 



    Set tws = ThisWorkbook.Worksheets("InvoiceSeparation") 

    fr = 2 

    lr = tws.Range("C1000000").End(xlUp).Row 

    With tws 

     .Range("A" & fr & ":A" & lr).ClearContents 

     For r = fr To lr 

      description() = Split(.Range("C" & r).Value, " ", -1, vbTextCompare) 

      For i = LBound(description) To UBound(description) 

       If Left(description(i), 2) = "FT" Then 

        If Not IsEmpty(.Range("A" & r).Value) Then 

         .Range("A" & r).Value = .Range("A" & r).Value & " " & description(i) 

        Else 

         .Range("A" & r).Value = .Range("A" & r).Value & description(i) 

        End If 

       End If 

      Next i 

     Next r 

    End With 


End Sub 

に設定されている、fr（firstRowの）を再定義する必要があるかもしれません！