Công thức của anh hay quá! Em sẽ giảm được rất nhiều thời gian đó ạ. Anh cho em hỏi thêm là khi số thứ tự của em lặp lại thì có công thưc nào để em copy 1 lần được hết không ạ?
Public Sub GPE()
Dim Arr(), I As Long, Tem As Double
Arr = Range([A3], [A65536].End(xlUp)).Resize(, 2).Value
For I = 1 To UBound(Arr, 1)
If Arr(I, 1) <> Empty Then
Tem = Arr(I, 2)
Else
Arr(I, 2) = Tem
End If
Next I
[A3].Resize(I - 1, 2) = Arr
End SubNhanh quá! Hôm trước em mất 2 ngày cho việc lập bảng tính bằng tay. Em hơi tham chút ạ, em muốn có code hiện công thức như trên file này, anh xem có code nào thực hiện được yêu cầu không ạ! Code trên của anh chạy ra giá trị, em muốn có công thức để người kiểm tra kiểm soát được ấy ạ.
Public Sub GPE()
Dim Cll As Range, Tem As String
For Each Cll In Range([B3], [B65536].End(xlUp))
If Cll.Value = Empty Then
Tem = Cll.Offset(, 1).Address
Else
Cll.Offset(, 1).Value = "=" & Cll.Address & "*" & Tem
End If
Next Cll
End Sub
Code cùi:
Sub Text1()
Dim i As Long
For i = 3 To 28
If Cells(i, 1) <> "" Then
Range(Cells(i, 1), Cells(i, 1).End(xlDown)).SpecialCells(xlCellTypeBlanks).Offset(, 2) = "=RC[-1]*R" & i & "C"
End If
Next
End Sub
Sub QuangHai()
Dim Arr(), I&, R&
Arr = Range([B3], [B65536].End(3)).Resize(, 2).Value
For I = 1 To UBound(Arr)
If Arr(I, 1) = Empty Then
R = I + 2
Else
Arr(I, 2) = "=RC[-1]*R" & R & "C"
End If
Next I
[B3].Resize(I - 1, 2) = Arr
End Sub
Sub Test()
Dim rng As Range
On Error Resume Next
Set rng = Range([B3], [B60000].End(xlUp)).Offset(, 1).SpecialCells(4)
If Not rng Is Nothing Then rng.Value = "=LOOKUP(10^10,R3C1:R[-1]C1,R3C3:R[-1]C3)"
End Sub=LOOKUP(10^10,$A$3:$A3,$C$3:$C3)Ah, tôi sửa dòng 5 lại như vầy thì chạy được:
Bạn viết như vậy chưa đúng. Mình cũng mới học, mình viết đại loại như thế này, chủ yếu làm cái gì trong Vòng lặp For Each.
Sub Text1()
Dim rng As Range
Dim i As Integer
Range("C3:C28").SpecialCells(xlCellTypeConstants).Select
For Each rng In Selection
i = i + 1
rng.Value = i
Next rng
End SubCác anh cho em hỏi làm thế nào để có thể cũng với mục đích như ở ví dụ trên, nhưng những thông số đầu vào mình có thể nhập vào tùy vào vị trí cụ thể của bài toán. Như trong đoạn code trên "For i = 3 To 28" thì 3 với 28 mình có thể nhập vào sau, tương tự "Range(Cells(i, 1);Offset(, 2);RC[-1]" thì 1, 2, -1 mình có thể nhập vào sau ngay trên giao diện của excel.
