单元格内容用chr(10)分割，如何导入listbox

6739912 · 发表于 2018-8-29 11:03

本帖最后由 6739912 于 2018-8-30 07:06 编辑

单元格内容用chr(10)分割，如何导入listbox ,现谢大家了

单列listbox的已经解决，
多列listbox始终想不到好的办法，求帮！

6739912 · 发表于 2018-8-30 21:19

已解决。。。。。。。。。

6739912 · 发表于 2018-8-31 00:17

问题解决，但行数变多了，找不到原因，望大神帮忙D:\无标题.jpg

vanyear · 发表于 2018-8-31 07:12

谢谢老师辛苦了

chis3 · 发表于 2018-8-31 09:00

先replace chr10 ""

6739912 · 发表于 2018-8-31 11:02

chis3 发表于 2018-8-31 09:00
先replace chr10 ""

什么意思，先将chr(10)替换为null

chis3 · 发表于 2018-8-31 11:23

6739912 发表于 2018-8-31 11:02
什么意思，先将chr(10)替换为null

試試 replace(str,chr(10),"")

zhjlgaojuan · 发表于 2018-8-31 11:57

Private Sub CommandButton1_Click()
Dim x, j, i As Integer
arrzcm = Split(Sheet1.Range("A2"), Chr(10))                      '子项目
i = 0
ListBox1.Clear
For i = 0 To UBound(arrzcm)
   If arrzcm(i) <> "" Then
      ListBox1.AddItem
      ListBox1.List(j) = arrzcm(i)
      j = j + 1
   End If
Next i
Set arrzcm = Nothing


ListBox2.Clear
j = 0
For x = 2 To 6
      Set arrdd = Nothing
      arrdd = Split(Sheet1.Cells(2, x), Chr(10))                   '↓导入订单
      If UBound(arrdd) > 0 Then
         ListBox2.AddItem arrdd(0), j
         For y = 1 To UBound(arrdd)
                  ListBox2.List(j, y) = arrdd(y)                   '对应sheet2 x列导入到listbox的x-6列
         Next y
         j = j + 1
      End If
   Next x
   MsgBox "listbox2有" & ListBox2.ListCount & "行"
End Sub

6739912 · 发表于 2018-8-31 14:45

zhjlgaojuan 发表于 2018-8-31 11:57
Private Sub CommandButton1_Click()
Dim x, j, i As Integer
arrzcm = Split(Sheet1.Range("A2"), ...

感谢的回复，然结果和我要求的不同D:\无标题1.jpg

6739912 · 发表于 2018-8-31 14:48

感谢的回复，然结果和我要求的不同

		自动登录	找回密码
密码			免费注册

[求助] 单元格内容用chr(10)分割，如何导入listbox