VBA - Bir hücreden ilk üç karakteri bölme ve ayrı dize olarak başka hücreye bunları eklemek ile mücadele başka bir hücreye

Question

içine dizesinden ilk üç karakteri kopyalayın.

Benim (örnek) girişi:

A 

A123456 
A133457 
B123456 
B133457 
... 

Benim istediğim:

A   B 
A123456  A12 
A133457  A13 
B123456  B12 
B133457  B13 
...   ... 

Denedim Ne: Ben üzerine ediyorum beri

Dim ws As Worksheet 
Dim cell As Range 

Set ws = Worksheets("summary") 

For Each cell In ws.Range("A").Cells 
    cell.Value = Left(cell.Value, 3) 
    Next cell 

Bu çalışamaz istemediğim tüm hücrelerdeki değer. Birisi yardım edebilir mi? aşağıdakileri yapabilirsiniz, VBA ile = SOL (A1,3)

: VBA olmadan

Excel'de

Answer 1

, sen formülü kullanabilirsiniz ben aralığını değiştirdik

For Each cell In ws.Range("A:A").Cells 
    cell.Offset(0, 1).Value = Left(cell.Value, 3) 
Next cell 

Not. Muhtemelen sınırlamak istersiniz "A: A" bir süre alacaktır.

ofset işlevi "Mevcut hücrenin sağına hücreyi 1 kullanın" diyor.