em làm theo đến hàm countifs rồi lỗi ko làm đc nữa
@luyenvietchuepkhanhhoa663322 күн бұрын
đoạn 0%. em làm chỉ hiện số 0; 0,25 mà ko hiện % đằng sau thì làm làm sao a ơi
@xueluo113426 күн бұрын
Muốn bỏ công thức thì làm sao anh?
@TAYSONTAYSON-ph5kuАй бұрын
Đăng ky học
@tinhocvanphong369Ай бұрын
Sub Combine() Dim J As Integer On Error Resume Next Sheets(1).Select Worksheets.Add Sheets(1).Name = "Combined" Sheets(2).Activate Range("A1").EntireRow.Select Selection.Copy Destination:=Sheets(1).Range("A1") For J = 2 To Sheets.Count Sheets(J).Activate Range("A1").Select Selection.CurrentRegion.Select Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) Next End Sub
@suongtran6711Ай бұрын
Ok ạ ❤
@p1234595554323Ай бұрын
K có code bạn
@tinhocvanphong369Ай бұрын
Dạ mình gửi bạn nhé
@tinhocvanphong369Ай бұрын
Sub Combine() Dim J As Integer On Error Resume Next Sheets(1).Select Worksheets.Add Sheets(1).Name = "Combined" Sheets(2).Activate Range("A1").EntireRow.Select Selection.Copy Destination:=Sheets(1).Range("A1") For J = 2 To Sheets.Count Sheets(J).Activate Range("A1").Select Selection.CurrentRegion.Select Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) Next End Sub
Пікірлер
em làm theo đến hàm countifs rồi lỗi ko làm đc nữa
đoạn 0%. em làm chỉ hiện số 0; 0,25 mà ko hiện % đằng sau thì làm làm sao a ơi
Muốn bỏ công thức thì làm sao anh?
Đăng ky học
Sub Combine() Dim J As Integer On Error Resume Next Sheets(1).Select Worksheets.Add Sheets(1).Name = "Combined" Sheets(2).Activate Range("A1").EntireRow.Select Selection.Copy Destination:=Sheets(1).Range("A1") For J = 2 To Sheets.Count Sheets(J).Activate Range("A1").Select Selection.CurrentRegion.Select Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) Next End Sub
Ok ạ ❤
K có code bạn
Dạ mình gửi bạn nhé
Sub Combine() Dim J As Integer On Error Resume Next Sheets(1).Select Worksheets.Add Sheets(1).Name = "Combined" Sheets(2).Activate Range("A1").EntireRow.Select Selection.Copy Destination:=Sheets(1).Range("A1") For J = 2 To Sheets.Count Sheets(J).Activate Range("A1").Select Selection.CurrentRegion.Select Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) Next End Sub