ວິທີເຊື່ຶອມຂໍ້ມູນຈາກ Sheet ຫາ Sheet

ສົມມຸດວ່າທ່ານຢາກເຊື່ອມຂໍ້ມູນຈາກ:
1. ແຖວ A5 ຂອງ Sheet"HS" ໄປ ແຖວ A5 ຂອງ Sheet"HS2"
2. ແຖວ C5 ຂອງ Sheet"HS" ໄປ ແຖວ B5 ຂອງ Sheet"HS2"
ຂັ້ນຕອນປະຕິບັດມີດັ່ງນີ້:
1. ຂິກຂວາໃສ່ຊື່ Sheet"HS" ແລ້ວເລືອກ View code
2. Copy Code ນິີ້ໃສ່:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long
LastRow = HS.Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
HS1.Range("A5:A" & LastRow).Value = HS.Range("A5:A" & LastRow).Value
HS1.Range("B5:B" & LastRow).Value = HS.Range("C5:C" & LastRow).Value
End Sub
3. ກົດ Save ແລ້ວ ອອກ.
4. ທ່ານລອງພິມເນື້ອໃນໃສ່ ແຕ່ A5 ຫາ A65536 ແລະ C5 ຫາ C65536 ຂອງ Sheet"HS" ແລ້ວໄປເບິ່ງຜົນທີ່ Sheet"HS1"
ດາວໂຫຼດຕົວຢ່າງໄດ້ທີ່ນີ້