Mình muốn copy nội dung, hàng ngang thành hàng dọc, nhờ mọi người giúp ạ

  • Thread starter Thread starter hinh12
  • Ngày gửi Ngày gửi
Liên hệ QC

hinh12

Thành viên mới
Tham gia
17/10/11
Bài viết
20
Được thích
-1
chuyển nội dung hàng ngang thành hàng dọc. Mình có vd trong file. tks
 

File đính kèm

Bài này là ca khó lắm (nhất là với mình) khi phải xài công thức!
 
Công thức không biết làm...
Viết 2 vòng lập copy là được
Click CLEAR hay Copy để xem kết quả.
 

File đính kèm

Lần chỉnh sửa cuối:
Anh ơi làm thế nào để được 2 cái nút Clear và coppy đấy ạ, chỉ cho em với. Em cảm ơn anh
Alt+F11 ...
Double click vào sheet1 sẽ thấy 2 sub gán cho 2 sharp...
Mã:
Sub Xoa()
    Range("i:i").EntireColumn.ClearContents
End Sub
Sub NamCotVeMot()
   
Dim i, j, k As Integer

For j = 1 To 5    'Vong lap theo column
    For i = 1 To 6 'vong lap theo row
        k = k + 1
        Cells(k, 9) = Cells(i, j)
    Next i
Next j
End Sub
 
copy chứ không phải coppy

shape chứ không phải sharp, 2 là số nhiều nên thêm s (2 shapes).
Hay là viết tiếng Việt cho lành?
Viết tiếng Anh cho bạn dễ đoán. Tiếng Việt hổng dám lành đâu. Viết tắt tôi sợ đoán lắm, sợ đoán bậy lại đi Côn đảo 1 tháng.
Ví dụ viết tắt đ, tôi hết dám đọc tiếp, sợ ngứa tay dịch bậy.
 
Lần chỉnh sửa cuối:
Web KT

Bài viết mới nhất

Back
Top Bottom