İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Son sözü növbəti bitişik hüceyrəyə necə daşımaq olar?

Şübhəsiz ki, son sözü növbəti bitişik hüceyrəyə köçürmək istədiyim mətn dizilərinin siyahısı var, əlbəttə ki, göstərilən ekran görüntüsü kimi, əlbəttə ki, onları bir-birinə ayırmaq və yapışdırmaq olar, amma biz hərəkət etmək üçün hər hansı bir sürətli yol varmı? Excel-də birbaşa növbəti hüceyrəyə

doc son sözü sonrakı xanaya keçmək üçün 1

Son sözü növbəti bitişik hüceyrəyə VBA kodu ilə köçürün

Formula ilə növbəti bitişik hüceyrəyə son sözü çıxartın


arrow mavi sağ bubble Son sözü növbəti bitişik hüceyrəyə VBA kodu ilə köçürün


Sonuncu sözü bir hüceyrədən növbəti bitişik hüceyrəyə kəsmək və hərəkət etmək üçün aşağıdakı VBA kodunu tətbiq edin:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: Son sözü növbəti bitişik hüceyrəyə daşıyın:

Sub splitlastword()
    Dim xCell As Range
    Dim xStr As String
    Dim xAddress As String
    Dim xRg As Range
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please selec the text cells:", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
       MsgBox "Only one column in the seleted range", vbInformation, "Kutools for Excel"
       Exit Sub
    End If
    For Each xCell In xRg
        xStr = Trim(xCell.Value)
        xCell.Offset(0, 1) = Mid(xStr, InStrRev(xStr, " "))
        xCell.Value = Left(xStr, InStrRev(xStr, " "))
    Next
End Sub

3. Sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və son sözü daşımaq istədiyiniz mətn hüceyrələrini seçməyi xatırlatmaq üçün bir sorğu qutusu çıxarılıb, ekran görünüşünə baxın:

doc son sözü sonrakı xanaya keçmək üçün 2

4. Və sonra basın OK düyməsini seçdiyiniz hüceyrələrdə son sözlər dərhal növbəti bitişik hüceyrələrə köçürüldü, ekran görüntüsünə baxın:

doc son sözü sonrakı xanaya keçmək üçün 1


arrow mavi sağ bubble Formula ilə növbəti bitişik hüceyrəyə son sözü çıxartın

Yalnız mətn strings-dən son sözləri onları hərəkət etmədən çıxarmaq lazımdır, aşağıdakı formula sizə bir lütf edə bilər.

Xahiş edirik bu formu daxil edin:

=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))) mətn hüceyrəsinin yanında boş bir hüceyrəyə daxil edin və sonra son sözü çıxartmaq istədiyiniz hüceyrələrə doldurun tutamağını sürükləyin, bütün son sözlər, əsl olanları hərəkət etmədən mətn dizələrindən çıxarılıb. Ekran görüntüsünə baxın:

doc son sözü sonrakı xanaya keçmək üçün 3



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.