Tách dữ liệu tu sheet nay qua sheet khac

[tonydung]

Các bác ơi giúp em với , em đang cần gấp , em cũng ko biết giải thích như thế nào cho các bác hiểu em xin nói như sau :
Mở 1 file excel và sheet 1 em để đặt tên là "dữ liệu" hoặc "data"
Trong file excel đó em đã tạo các sheet
trong sheet dữ liệu em để số thứ tự và các số tương ứng
Em muốn chia dữ liệu ra các sheet mà đã tạo như ở trong file đính kèm dưới đây . Mong các bác giúp em với nhé

 

[SA_DQ]

Mình chỉ làm được bằng VBA thôi

Hãy xem trong file bạn nha.

 

[tonydung]

Cảm ơn Hyen nhiều nhé, ah cho minh hỏi chút là VBA náy có thể chạy trên office 2003 được ko bạn nhỉ hay chỉ chạy trên đượcc 2007 và 2010

 

[tonydung]

Bac Hyen ơi giúp em với nhé

pro Hyen ơi giúp em thêm 1 việc nữa nhé
fiile trước bác gửi thì ok rồi nhưng bây jo có thêm phát sinh mới mong bác giúp đỡ
file xls của em vẫn như của bác gửi thay vì các sheet em để mỗi chữ A bây giờ em thêm vào đó :
Tên, A,Tên , Tên ,ten , tên và ở dưới là hiện thị thông tin chi tiết như em làm mẫu ở Sheet 1 bác nhé , Mong bác giúp em nhé , Thank bác rất nhiều

 

[MinhCong]

pro Hyen ơi giúp em thêm 1 việc nữa nhé
fiile trước bác gửi thì ok rồi nhưng bây jo có thêm phát sinh mới mong bác giúp đỡ
file xls của em vẫn như của bác gửi thay vì các sheet em để mỗi chữ A bây giờ em thêm vào đó :
Tên, A,Tên , Tên ,ten , tên và ở dưới là hiện thị thông tin chi tiết như em làm mẫu ở Sheet 1 bác nhé , Mong bác giúp em nhé , Thank bác rất nhiều

Không biết có phải ý của Bạn như vầy không?

Sub CopyToSheets()
 Dim Sh As Worksheet, Cls As Range, ShName As String
 Const MN As String = "(":       Const DN As String = ")"
  
 Sheets("DuLieu").Select
 For Each Cls In Range([A1], [A65500].End(xlUp))
   ShName = MN & Cls.Value & DN
   With Sheets(ShName).Select
       Union([A1], [A3:C3]).Value = "Ten"
       [A2].Value = Cls.Offset(, 1).Value
   End With
 Next Cls
End Sub

 

[ChanhTQ@]

Hình như là vầy, Minh Công ơi:

Option Explicit
Sub CopyToSheets()
 Dim Sh As Worksheet, Cls As Range, ShName As String
 Const MN As String = "(":       Const DN As String = ")"
  
 Sheets("DuLieu").Select
 For Each Cls In Range([A1], [A65500].End(xlUp))
   ShName = MN & Cls.Value & DN
6   Sheets(ShName).[A1].Value = [D1].Value
   Sheets(ShName).[A2].Value = Cls.Offset(, 1).Value
8   Sheets(ShName).[A3].Resize(, 3).Value = [D1].Value
 Next Cls
End Sub

Chú í: Cái gì bạn nhập vô [D1] ở trang 'DuLieu' sẽ thể hiện các vị trí [A1], [A3:A5]

 

[tonydung]

login tự động khi lướt web bằng macro

Chào mọi người .minh có vấn đề như sau là có cách nào dùng macro để đăng nhập tự động với những ID và pass đã có sẵn được không
trong file xls gồm :
cột A là cột STT
cột B là các dia chỉ URL
Cột C là ID
Cột D là pass
vậy theo các bạn có thể login được không , hy vọng sẽ sơm nhận đc kết quả của mọi người , Thank nhiều nhiều