İ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

Sütundakı məlumatları Excel-də bir tək hücrə necə köçürmək olar?

Bir iş cədvəlində məlumatların bir siyahısını bir işəgötürənə köçürməli olduqda, adətən tətbiq edə bilərsiniz Birləşmək hüceyrələrin siyahısını bir hüceyrəyə birləşdirmək funksiyası, amma böyük məlumatların birləşdirilməsinə ehtiyac olduqda kompleks olacaq. Bu məqalə, Excel-də bu vəzifəni həll etmək üçün bəzi sürətli fəndlər haqqında danışacağam.

Sütundan İstifadəçi Tanımlı funksiyası olan bir hüceyrəyə verin

Sütundan Excel üçün Kutools ilə bir tək hücrə məlumatın köçürülməsi


Məlumatları bir sütundan tək bir hüceyrəyə çevirmək və ya birləşdirmək:

Excel üçün Kutools's Birləşdirmək xüsusiyyət, ehtiyac duyduğunuz halda birdən çox hüceyrə məzmununu tez bir tək hücrə birləşdirməyə kömək edə bilər.

6 bir hüceyrə doc transpoze hüceyrələri

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!



Birləşmə funksiyası hüceyrə dəyərlərinin siyahısını birləşdirmək üçün istisna olmaqla, nəticəni mümkün qədər tez əldə etmək üçün aşağıdakı VBA kodunu tətbiq edə bilərsiniz.

1. Basıb saxlayın ALT + F11 düymələri və açar 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: sütundan tək bir hüceyrəyə verin

Function transposeRange(Rg As Range)
'updateby Extendoffice 20151207
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
        If Not IsEmpty(xCell.Value) Then
            xStr = xStr & xCell.Value & ","
        End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
End Function

3. Sonra bu kodu saxlamaq və bağlamaq, iş səhifəsinə geri qayıdın və bu formulu daxil edin: = transposeranj (A1: A10) nəticə çıxarmaq üçün boş bir hüceyrəyə daxil edin və basın Daxil edin bir sütundakı bütün hüceyrə dəyərlərini tək bir hüceyrədə yerləşdirmiş olursunuz, ekran görünüşünə baxın:

1 bir hüceyrə doc transpoze hüceyrələri

Qeyd: Yuxarıda göstərilən kodda, A1: A10 tək bir hüceyrəyə köçürmək istədiyiniz siyahı üçündür və ayrıca birləşdirilmiş məzmunu vergüllə, boşluq, yer, və s. kimi digər məhdudlaşdırıcılarla ayırmaq olar. xStr = xStr & xCell.Value & ",".


Əgər Excel üçün Kutoolsgüclü alət-Birləşdirmək, bir sütun, satır və ya aralığındakı məlumatları bir hüceyrəyə birləşdirə bilərsiniz.

Excel üçün Kutools : 300-dən daha çox 60-dən istifadə etməklə, Excel-in əlavələri, XNUMX gündə heç bir məhdudiyyət yox idi.

Quraşdırıldıqdan sonra Excel üçün Kutools, xahiş edirəm :( İndi Excel üçün Pulsuz Kutools Download! )

1. Bir hüceyrəyə birləşdirmək istədiyiniz məlumat sütununu seçin.

2. Basın Kutools > Birləşdirmək, bax ekran görüntüsü:

2 bir hüceyrə doc transpoze hüceyrələri

3. İçində Sütun və ya Satırları birləşdirin informasiya qutusu seçin Tək hücrə birləşdirin Altında Seçilən hüceyrələri aşağıdakı variantlara uyğun birləşdirmək, sonra birləşdirilmiş məzmunu ayırmaq üçün bir ayırıcı seçin, ekran görünüşünə baxın:

3 bir hüceyrə doc transpoze hüceyrələri

4. Sonra basın Ok or tətbiq etmək düyməsini basın və sizə lazım olan nəticəni əldə edəcəksiniz:

4 bir hüceyrə doc transpoze hüceyrələri  2 5 bir hüceyrə doc transpoze hüceyrələri

Excel İndi Download və pulsuz sınaq Kutools!


Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!



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.
  • To post as a guest, your comment is unpublished.
    Sophie · 7 months ago
    Hi,

    Thanks a lot! I'm using your following function and it works very well. I would like to include an "if" function in the transposerange. What should I add to the function in VBA? Basically, it would work like a countif. So we would read the formula =transposerangeif(range,criteria).

    Thanks in advance!

    Function transposeRange(Rg As Range)
    'updateby Extendoffice 20151207
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
    If Not IsEmpty(xCell.Value) Then
    xStr = xStr & xCell.Value & ","
    End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
    End Function
    • To post as a guest, your comment is unpublished.
      skyyang · 7 months ago
      Hello,Sophie,
      Could you give an example for your need, you can insert a screenshot here.
  • To post as a guest, your comment is unpublished.
    Eric · 1 years ago
    Thanks, this was very helpful.