რჩევა: სხვა ენები Google- ით თარგმნილია. შეგიძლიათ ეწვიოთ English ამ ბმის ვერსია.
შესვლა
x
or
x
x
რეგისტრაცია
x

or

როგორ გაყოფილი უჯრედების ღირებულებები ვერტიკალურად Excel- ში?

Excel- ში, შეგიძლიათ გამოიყენოთ სვეტების ტექსტი ფუნქცია გაყოფილი საკანში ღირებულებების შევიდა მრავალჯერადი სვეტების ჰორიზონტალურად, მაგრამ, ეს არ დაგეხმარებათ გაყოფილი საკანში შინაარსი მრავალჯერადი რიგები ვერტიკალურად. და ამ სტატიაში, ვისაუბრებთ ზოგიერთ სწრაფ გზას, რომ უჯრედის ღირებულებების გაყოფა ვერტიკალურად მწკრივში Excel- ში.

სვეტის უჯრედების სიხშირეზე გადანაწილება VBA კოდით

გაყოფა უჯრედის მნიშვნელობებში მწკრივების მიერ ვერტიკალურად დაყოფით კუტუსით Excel- ზე


სვეტის უჯრედების სიხშირეზე გადანაწილება VBA კოდით


ქვემოთ მოყვანილი VBA კოდის დახმარებით დაგეხმარებათ საკანში ღირებულებების გაყოფა სტრიქონებში ვერტიკალურად, როგორც გსურთ, შემდეგნაირად:

1. გეჭიროთ ALT + F11 გასაღებები გასახსნელად Microsoft Visual Basic აპლიკაციებისათვის window.

2. დაწკაპეთ ჩადეთ > მოდულებიდა ჩასვით შემდეგი კოდი მოდულები ფანჯარა.

VBA კოდი: გაყოფა უჯრედის მნიშვნელობებს სტრიქონებში ვერტიკალურად

Sub splitvertically()
'updatebyExtendoffice 20160303
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xStr As String
    Dim xOutArr As Variant
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutRg = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xStr = "" Then
            xStr = xCell.Value
        Else
            xStr = xStr & ";" & xCell.Value
        End If
    Next
    xOutArr = VBA.Split(xStr, ";")
    xOutRg.Range("A1").Resize(UBound(xOutArr) + 1, 1) = Application.WorksheetFunction.Transpose(xOutArr)
End Sub

3. შემდეგ დააჭირეთ F5 გასაღები აწარმოებს ამ კოდს, და სწრაფი ყუთი გაეცანით შეგახსენოთ, რომ აირჩიოთ უჯრედული ღირებულებები, რომლითაც გსურთ ვერტიკალურად გაყოფილი, იხილეთ სკრინშოტი:

დოკუმენტი გაყოფილი ვერტიკალურად 1

4. და შემდეგ დააჭირეთ OK ღილაკს, კიდევ ერთი ყუთი გაარკვევს out შეგახსენოთ აირჩიეთ საკანში დააყენოს შედეგი, იხილეთ სკრინშოტი:

დოკუმენტი გაყოფილი ვერტიკალურად 2

5. დაწკაპეთ OK ღილაკი და უჯრედის მნიშვნელობები გამყოფი ხაზებით შევიდა, იხილეთ სკრინშოტი:

დოკუმენტი გაყოფილი ვერტიკალურად 3

შენიშვნა: ზემოთ აღნიშნულ კოდექსში შეგიძლიათ შეცვალოთ სემინოლონი ; ნებისმიერი სხვა delimiters რომ გჭირდებათ.


გაყოფა უჯრედის მნიშვნელობებში მწკრივების მიერ ვერტიკალურად დაყოფით კუტუსით Excel- ზე

Kutools ამისთვის Excel'S გაყოფა საკნები ფუნქცია მძლავრი კომუნალურია, ის დაგეხმარებათ გაყოფილი უჯრედების ღირებულებები მრავალ სვეტში ან რიგებში ნებისმიერი გამყოფით, როგორც გჭირდებათ.

Kutools ამისთვის Excel : მეტი, ვიდრე 300 მოსახერხებელი Excel add-ins, უფასო ცდილობენ არ შეზღუდვა in 60 დღე.

ინსტალაციის შემდეგ Kutools ამისთვის Excel, გთხოვთ შემდეგნაირად:

1. აირჩიეთ უჯრედები, რომლითაც გსურთ განაწილება მწკრივების სპეციფიური დემიმიტრირებით.

2. შემდეგ დააჭირეთ კუტუსი > ტექსტი > გაყოფა საკნებიიხილეთ სკრინშოტი:

დოკუმენტი გაყოფილი ვერტიკალურად 4

3. იმ გაყოფა საკნები დიალოგური ფანჯარა, აირჩიეთ გაყოფილი რიგები ქვეშ ტიპი განყოფილება, და შემდეგ შეამოწმოთ სხვა დან გაყოფა სექცია, და შეიტანეთ გამყოფი, რომ გსურთ გაყოფილი საკანში ღირებულებების საფუძველზე, იხილეთ სკრინშოტი:

დოკუმენტი გაყოფილი ვერტიკალურად 5

4. და შემდეგ დააჭირეთ Ok ღილაკს, popping out box, აირჩიეთ საკანში გამომავალი შედეგი, იხილეთ სკრინშოტი:

დოკუმენტი გაყოფილი ვერტიკალურად 6

5. და დააჭირეთ OK ღილაკი, უჯრედის მნიშვნელობები გაყოფილია რიგებზე დაყრდნობით კონკრეტული გამყოფით, როგორც ნაჩვენებია შემდეგ ეკრანზე:

დოკუმენტი გაყოფილი ვერტიკალურად 7

ჩამოტვირთვა და უფასო საცდელი Kutools for Excel ახლა!


დემო: Split უჯრედების ღირებულებები შევიდა რიგები ვერტიკალურად მიერ გამყოფი ერთად Kutools for Excel

Kutools ამისთვის Excel: მეტია, ვიდრე 200 მოსახერხებელი Excel add-ins, უფასო ცდილობენ არ შეზღუდვა 60 დღე. ჩამოტვირთეთ და უფასო საცდელი ახლა!


რეკომენდებული პროდუქტიულობის ინსტრუმენტები Excel- ისთვის

kte tab 201905

Kutools for Excel ეხმარება თქვენ ყოველთვის დასრულდება მუშაობა წინ და გამოირჩევა საწყისი Crowd

  • მეტი, ვიდრე 300 ძლიერი მოწინავე თვისებები, შექმნილია 1500 მუშაობის სცენარით, იზრდება პროდუქტიულობა 70- ით, მოგცემთ უფრო მეტ დროს იზრუნოს ოჯახში და ისიამოვნე ცხოვრებას.
  • აღარ სჭირდება მეხსიერების ფორმულები და VBA კოდები, მიეცით თქვენი ტვინი დანარჩენიდან.
  • გახდე Excel- ის ექსპერტის მიერ 3 წუთი, გართულებული და განმეორებითი ოპერაციები შეიძლება გაკეთდეს წამებში,
  • ყოველდღიურად ათასობით კლავიატურა და მაუსის ოპერაცია შეამციროთ, ამბობენ, რომ დღესდღეობით ოკუპაციური დაავადებების კარგვაა.
  • ყველაზე ეფექტური ხალხი და 110,000 + მსოფლიოში ცნობილი კომპანიების არჩევანი.
  • 60 დღიანი სრული თვისებები უფასო საცდელი. 60 დღიანი ფულის დაბრუნება გარანტიები. 2 წლის თავისუფალი განახლება და მხარდაჭერა.

Bring Tabbed Browsing და Editing to Microsoft Office, ბევრად უფრო ძლიერი ვიდრე ბრაუზერის ჩანართების

  • ოფისი Tab განკუთვნილია Word, Excel, PowerPoint და სხვა ოფისი პროგრამები: გამომცემელი, Access, Visio და პროექტი.
  • გახსენით და შექმნათ მრავალი დოკუმენტი იმავე ფანჯრის ახალ ჩანართებში, ვიდრე ახალ ფანჯარაში.
  • ზრდის თქვენს პროდუქტიულობას 50%, და ამცირებს ასობით მაუსის დაწკაპუნებით თქვენთვის ყოველდღე!
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.