trankieuthuyquynh
New member
#VBA #Excel #B13 #finding #data
## Cách tìm các ô chứa dữ liệu trong VBA Excel B13
Trong hướng dẫn này, chúng tôi sẽ chỉ cho bạn cách tìm các ô chứa dữ liệu trong VBA Excel B13.Chúng ta sẽ sử dụng phương thức `find` của đối tượng` range`.
1. Để bắt đầu, hãy mở trình chỉnh sửa VBA bằng cách nhấn ** Alt+F11 **.
2. Trong cửa sổ ** Dự án **, chọn mô -đun `Sheet1`.
3. Trong cửa sổ ** mã **, nhập mã sau:
`` `
Sub FindData ()
'Xác định phạm vi để tìm kiếm.
Dim Rng dưới dạng phạm vi
Đặt RNG = Phạm vi ("B13: B20")
'Tìm các ô chứa dữ liệu.
Dim tôi dài
Đối với i = 1 đến rng.Rows.Count
Nếu rng.cells (i, 1) .Value <> "" Sau đó
'Ô chứa dữ liệu.
Debug.Print rng.cells (i, 1) .Value
Kết thúc nếu
Tiếp theo tôi
Kết thúc phụ
`` `
4. Nhấn ** F5 ** để chạy macro.
Macro sẽ in các giá trị của tất cả các ô trong phạm vi `B13: B20` có chứa dữ liệu.
## hashtags
* VBA
* Excel
* B13
* Phát hiện
* Dữ liệu
=======================================
#VBA #Excel #B13 #finding #data
## How to Find Cells Containing Data in VBA Excel B13
In this tutorial, we will show you how to find cells containing data in VBA Excel B13. We will use the `Find` method of the `Range` object.
1. To start, open the VBA editor by pressing **Alt+F11**.
2. In the **Project** window, select the `Sheet1` module.
3. In the **Code** window, type the following code:
```
Sub FindData()
' Define the range to search.
Dim rng As Range
Set rng = Range("B13:B20")
' Find the cells containing data.
Dim i As Long
For i = 1 To rng.Rows.Count
If rng.Cells(i, 1).Value <> "" Then
' The cell contains data.
Debug.Print rng.Cells(i, 1).Value
End If
Next i
End Sub
```
4. Press **F5** to run the macro.
The macro will print the values of all cells in the range `B13:B20` that contain data.
## Hashtags
* VBA
* Excel
* B13
* Finding
* Data
## Cách tìm các ô chứa dữ liệu trong VBA Excel B13
Trong hướng dẫn này, chúng tôi sẽ chỉ cho bạn cách tìm các ô chứa dữ liệu trong VBA Excel B13.Chúng ta sẽ sử dụng phương thức `find` của đối tượng` range`.
1. Để bắt đầu, hãy mở trình chỉnh sửa VBA bằng cách nhấn ** Alt+F11 **.
2. Trong cửa sổ ** Dự án **, chọn mô -đun `Sheet1`.
3. Trong cửa sổ ** mã **, nhập mã sau:
`` `
Sub FindData ()
'Xác định phạm vi để tìm kiếm.
Dim Rng dưới dạng phạm vi
Đặt RNG = Phạm vi ("B13: B20")
'Tìm các ô chứa dữ liệu.
Dim tôi dài
Đối với i = 1 đến rng.Rows.Count
Nếu rng.cells (i, 1) .Value <> "" Sau đó
'Ô chứa dữ liệu.
Debug.Print rng.cells (i, 1) .Value
Kết thúc nếu
Tiếp theo tôi
Kết thúc phụ
`` `
4. Nhấn ** F5 ** để chạy macro.
Macro sẽ in các giá trị của tất cả các ô trong phạm vi `B13: B20` có chứa dữ liệu.
## hashtags
* VBA
* Excel
* B13
* Phát hiện
* Dữ liệu
=======================================
#VBA #Excel #B13 #finding #data
## How to Find Cells Containing Data in VBA Excel B13
In this tutorial, we will show you how to find cells containing data in VBA Excel B13. We will use the `Find` method of the `Range` object.
1. To start, open the VBA editor by pressing **Alt+F11**.
2. In the **Project** window, select the `Sheet1` module.
3. In the **Code** window, type the following code:
```
Sub FindData()
' Define the range to search.
Dim rng As Range
Set rng = Range("B13:B20")
' Find the cells containing data.
Dim i As Long
For i = 1 To rng.Rows.Count
If rng.Cells(i, 1).Value <> "" Then
' The cell contains data.
Debug.Print rng.Cells(i, 1).Value
End If
Next i
End Sub
```
4. Press **F5** to run the macro.
The macro will print the values of all cells in the range `B13:B20` that contain data.
## Hashtags
* VBA
* Excel
* B13
* Finding
* Data
