Bir sütundaki bazı verileri yeni bir sütuna nasıl taşırım

Verileri yeni sütunlara bölmek için bir formül arıyorum. Basitçe yapabilirim ama kategorize etmek istiyorum.

IE Gibi her kişi için derece bilgisine sahip bir sütun var:

BS 1990; MS 1991; PHD 1992;
Next record:
BS 1999; PHD 2000

Veriler, farklı derecelerde derecelere sahip her kişi için farklıdır. Tüm BS'yi yeni bir sütuna, tüm MS'i diğerine ve PHD'yi diğerine taşımak istiyorum. Verilerin her bir satır için farklı olduğu için verilerin yeni sütunlara ayrılmasını ancak doğru sütunlara ayrılmamasını sağlayabilirim.

Teşekkürler.

Sütun içinde verilerle A içinde, B1 girin:

=IF(ISERROR(FIND("BS",A1)),"",MID(A1,FIND("BS",A1),7))

ve aşağı kopyalayın. In C1 girin:

=IF(ISERROR(FIND("MS",A1)),"",MID(A1,FIND("MS",A1),7))

ve aşağı kopyalayın. In D1 girin:

=IF(ISERROR(FIND("PHD",A1)),"",MID(A1,FIND("PHD",A1),8))

ve kopyalayın:

varsayarsak

• VBA kabul edilebilir
• Office 2000 veya üstü (Bölme işlevi için. 2003'ten daha eski bir sürüm kullanıyorsanız, bana iki kez kontrol edeceğim.)
• biçiminiz noktalı virgül ayracı ile tutarlıdır.

sonra bu kodu ekleyin:

Function XLstrtok2(sStr As String, sDesiredDegree As String)
    Dim ss() As String, i As Integer
    sStr = Trim(sStr)
    If Right(sStr, 1) = ";" Then sStr = Left(sStr, Len(sStr) - 1)
    ss = Split(sStr, ";")
    For i = 0 To UBound(ss)    
        If Left(Trim(ss(i)), Len(sDesiredDegree)) = sDesiredDegree Then XLstrtok2 = Trim(ss(i)): Exit Function    
    Next    
    XLstrtok2 = "--"
End Function

Aşağıda, elektronik tablonuz ve dereceleri farklı sütunlarda, noktalı virgüllerle birleştirilmiş dizenin sağına yerleştiren formüller gösterilmektedir.

Sütunlarınızın yeterince geniş olduğundan emin olun. İstenirse, altta daha fazla kod ekleyerek söyleyebiliriz

With ActiveSheet.Columns("A:E")
    .AutoFit
    .HorizontalAlignment = xlLeft
End With

Son sütunu gereken sayıda sağa kopyalayın. Örneğin, E1: E3 - F1: F3 kopyalayın.

Son satırı gerektiği kadar aşağıya kopyalayın. Örneğin, A3: E3'ü A4: E4'e kopyalayın ve yeni verileri A4'e yazın.

Tabii ki, uygun başlıklar için üste bir sıra sokmak akıllıca olacaktır.

Bunlardan herhangi birinin belirsiz olup olmadığını söyle. Veya bu kabul edilebilirse. PHD değişkenleri için aşağıda gösterildiği gibi ek sütunların gerekli olup olmadığını belirlemek için veri girişine ve tutarlılığına dikkat edin (örn., Bazen doktora ve diğer zamanlarda doktora gösterir).