- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2024-4-29
|
回復 dou10801 如何變成一行,謝謝.
dou10801 發表於 2022-9-12 11:20 
用你原來的程式碼修改如下，請測試看看，謝謝
Sub 按鈕1_Click()
arr = Sheets("工作表1").Range("A1:E" & Sheets("工作表1").Cells(Rows.Count, 1).End(xlUp).Row)
ReDim brr(1 To Sheets("工作表1").Cells(Rows.Count, 1).End(xlUp).Row, 1 To 5)
ms1 = 1
For i = 1 To UBound(arr)
If arr(i, 1) = "女" Then
brr(ms1, 1) = arr(i, 1)
brr(ms1, 2) = arr(i, 2)
brr(ms1, 3) = arr(i, 3)
'brr(ms1, 4) = arr(i, 4)
a = Split(arr(i, 4), Chr(10))
For j = 0 To UBound(a): brr(ms1, 4) = brr(ms1, 4) & a(j): Next
brr(ms1, 5) = arr(i, 5)
ms1 = ms1 + 1
End If
Next
Sheets("工作表2").Range("A1:E1000") = ""
Sheets("工作表2").Range("A1:E" & UBound(brr)) = brr
End Sub |
|
發表於 2022-9-12 16:21
| 