- Tham gia
- 23/3/16
- Bài viết
- 705
- Được thích
- 52
Chào cả nhà GPE !
em là người có hỏi về vấn đề copy ở http://www.giaiphapexcel.com/forum/showthread.php?121255-Giúp-sửa-code-Copy-khi-nhập-255-ký-tự
Code của anh befaint thì ok chỉ khi nào em nhập giá trị từ A1:A100 <=911 ký tự thì ok, Mà lớn hơn thì Báo lỗi ( Em đang dùng Excel 2003 ). Em muốn biết có cách nào nhiều hơn 911 ký tự không
Sub copynew()
Dim Arr(), tmp(), i As Long
Arr = Sheet1.Range("A1:A100").Value
ReDim tmp(1 To UBound(Arr, 1))
For i = 1 To UBound(tmp)
tmp(i) = Arr(i, 1)
Next i
Sheet1.Range("H50000").End(xlUp).Offset(1).Resize(, i-1).Value = tmp
Erase Arr: Erase tmp
End Sub
em là người có hỏi về vấn đề copy ở http://www.giaiphapexcel.com/forum/showthread.php?121255-Giúp-sửa-code-Copy-khi-nhập-255-ký-tự
Code của anh befaint thì ok chỉ khi nào em nhập giá trị từ A1:A100 <=911 ký tự thì ok, Mà lớn hơn thì Báo lỗi ( Em đang dùng Excel 2003 ). Em muốn biết có cách nào nhiều hơn 911 ký tự không
Sub copynew()
Dim Arr(), tmp(), i As Long
Arr = Sheet1.Range("A1:A100").Value
ReDim tmp(1 To UBound(Arr, 1))
For i = 1 To UBound(tmp)
tmp(i) = Arr(i, 1)
Next i
Sheet1.Range("H50000").End(xlUp).Offset(1).Resize(, i-1).Value = tmp
Erase Arr: Erase tmp
End Sub
Lần chỉnh sửa cuối:
