Các cao nhân giúp em macro với ah. em chân thành cảm ơn (2 người xem)

[anhtuc8435]

Các cao nhân cho em hỏi ngu tí. cái file of em cần là ví dụ: cột a có giá trị từ ô a1==>a10 giờ mình cần là c1=a1, c10=a2, c19=a3,c28=a4...... khoảng trống ở giữ lun lun cách nhau 8 ô rỗng. nhưng cột c pải lấy các giá trị cột a tương ứng tăng dần.. a1--a2--a3--a4----------
- Bữa trước có ông bạn cho cái file chỉ cách nắm kéo: ví dụ sẽ bôi đen từ c1-->c18 và nắm giữ chuột trái kéo. nhưng mà mình kéo mãi mà nó ko tăng lên nó chỉ lặp lại giá trị a1, a2 thui (thử nghiệm khi đánh số tt 1--2 cách nhau 1 ô bôi đen thì nó lại tăng lên đúng(3 cách 2 1 ô, 4 cách 3 1 ô). ông đó có sử dụng macro gì đấy mình ko rành. mà có bật mí cho là kểu chuỗi và kiểu biến gì đấy. và vòng lặp... mình nghiên cứu nát cả cái đầu lun, ngôn ngữ vbe cũng chẳng hiểu gì tất. ai biết chỉ em xin đội ơn rất nhìu nhìu... em hiện đang rất cần nó.
copy đoạn mã code ổng làm đây ace giúp đỡ em với nhé.
Sub DelEmptyRow()
Rng = Selection.Rows.Count
ActiveCell.Offset(0, 0).Select
Application.ScreenUpdating = False
For i = 1 To Rng
If ActiveCell.Value = "" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[Ba Tê]

Các cao nhân cho em hỏi ngu tí. cái file of em cần là ví dụ: cột a có giá trị từ ô a1==>a10 giờ mình cần là c1=a1, c10=a2, c19=a3,c28=a4...... khoảng trống ở giữ lun lun cách nhau 8 ô rỗng. nhưng cột c pải lấy các giá trị cột a tương ứng tăng dần.. a1--a2--a3--a4----------
.............
End Sub

Sau này bạn đừng viết nhờ "cao nhân", cứ viết thẳng là "nhờ các bạn" là được rồi, chẳng ai dám nhận mình là cao nhân đâu.
Thử nhập khoảng cách vào ô H1 thử xem.(không phải số nguyên dương bị lỗi ráng chịu)
Không Enable Macros nó cũng hổng chịu nhúc nhích đâu.

 

[Hoang2013]

Với trình độ về VBA của người lập topic, tôi đề xuất ngâm cứu macro sau:

Option Explicit
Sub GPE_ThemDong() 
 Dim Cls As Range, Chu As String 
 Dim SoDong As Long, Rw As Long

 SoDong = [H1].Value
 If SoDong < 1 Then SoDong = 1
 Rw = [B1].End(xlDown).Row
 Cells(Rw, "D").Value = "GPE"
 For Each Cls In Range([A1], [A1].End(xlDown))
    Chu = "A" & Right("0000" & CStr(Cls.Value), 5)
    Cls.Offset(, 3).Value = Chu
    Cells(65535, "D").End(xlUp).Offset(1).Resize(SoDong).Value = Chu
 Next Cls
 'Con 1 Cau Lenh De Sap Xep Theo Cot "D" Nay'
End Sub

 

[anhtuc8435]

anh ui sao nó cứ báo lỗi. và hiện vàng dòng này.
ReDim dArr(1 To UBound(sArr, 1) * Cach, 1 To Cot) giờ chỉnh sao dc ah. vô vàng biết ơn anh.