İ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ütunları soldan sağa Exceldə bir sütuna necə yığmaq olar?

Birdən çox sütun olduğunu düşünürsek, iş sütunları soldan sağa bir sütunla yığmaq üçün göstərilən ekran görüntüsünün altına bənzəyir. Əlləri sütunları bir-birinə daşımaq istisna olmaqla, bunları Excel-də həll etmək üçün hər hansı bir fənd varmı?
doc yığın sütunları soldan sağa 1

Sütunları soldan sağa VBA ilə bir sütuna yığın

Sütunları soldan sağa Excel üçün Kutools ilə bir sütunla yığın


Sütunları soldan sağa VBA ilə bir sütuna yığın

Excel-də bu işi yerinə yetirmək üçün heç bir daxili funksiya yoxdur, ancaq VBA kodu sizə kömək edə bilər.

1. Basın Alt + F11 düymələri, sonra isə Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules yeni bir boş modul yaratmaq.

2. Aşağıdakı kodu kopyala və yapışdırıb Modules.

VBA: Sütunları birinə yığın

Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
    Application.ScreenUpdating = True
    Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
    Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
    For xFNumC = 1 To xSRg.Columns.Count
        For xFNumR = 1 To xSRg.Rows.Count
            Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
            xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
            xI = xI + 1
        Next xFNumR
    Next xFNumC
Application.ScreenUpdating = True
End Sub

doc yığın sütunları soldan sağa 2

3. Basın F5 kodu açmaq üçün açar, siz birinə yığışacaq sütunları seçmək üçün bir dialoq çıxır.
doc yığın sütunları soldan sağa 3

4. klik OKnəticəni yerləşdirmək üçün bir hüceyrəni seçin.
doc yığın sütunları soldan sağa 4

5. klik OK bitirmək. İndi seçilmiş sütunlar bir sütuna yığılmışdır.
doc yığın sütunları soldan sağa 5


Sütunları soldan sağa Excel üçün Kutools ilə bir sütunla yığın

Əgər Excel üçün Kutools Excel-də quraşdırılmış, istifadə edə bilərsiniz Transform Range Bu işi idarə etmək üçün kommunal.

Excel üçün Kutools, daha çox 200 lazımlı funksiyaları, işinizi asanlaşdırır.

Quraşdırıldıqdan sonra Excel üçün Kutools, aşağıdakıları edin:(Excel İndi Pulsuz İndir Kutools!)

1. Yığmaq istədiyiniz sütunları seçin, klikləyin Kutools > Transform Range.
doc yığın sütunları soldan sağa 6

2. İçində Transform Range dialoq yoxlayın Range to single row onay kutusunu basın Ok.
doc yığın sütunları soldan sağa 7

3. Popping dialoqunda, nəticəni yerləşdirmək üçün bir hüceyrə seçin, klikləyin OK.
doc yığın sütunları soldan sağa 8

İndi sütunlar tək bir sıraya çevrildi.
doc yığın sütunları soldan sağa 9

4. Tək sütunu seçin, basın Ctrl + C onu kopyalamaq və yığın sütunu yerləşdirən başqa bir hüceyrəni seçin, seçmək üçün sağ basın Transpose(T) kontekst menyusunda.
doc yığın sütunları soldan sağa 10

İndi bir sıra bir yığın sütuna köçürülmüşdür.
doc yığın sütunu sağdan sağa 11


Sekmeli tarama ve birden çox Excel iş kitabını / Word sənədlərini Firefox, Chrome, İnternet olaraq redaktə edin 10 araşdırın!

Firefox / Chrome / IE-də birdən çox veb səhifəni keçirmək üçün tanış ola bilərsiniz və asanlıqla müvafiq sekmeleri asanlıqla tıklayaraq onların arasında keçid edə bilərsiniz. Office Tab, bir Excel iş kitabını və ya Word sənədlərini bir Excel pəncərəsində və ya Word pencerəsində gözdən keçirmək və onların sekmelerini tıklayarak asanlıqla keçmək üçün imkan verən oxşar emal dəstəkləyir. Office Tab-ın 45-gün sınaq üçün basın!

ot excel


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.