Excel - 多行文本框将每行偏移到下一列?

时间:2014-08-06 07:58:10

标签: excel offset multiline

我需要一些Excel帮助。

我正在尝试创建一个数据库,以便在我的商店中存储客户信息。 客户将有一个名称和地址,如下所示:

MR SMITH
123 FLAT A, 321 ROAD,
LONDON,
AB12 3AB
UNITED KINGDOM

此地址有5行。我想将所有内容复制并粘贴到具有Multiline Textbox的userform中。我需要它将每行偏移到我的电子表格的每一列。 所以最终看起来像这样:

CELL A1 = MR SMITH
CELL B1 = 123 FLAT A, 321 ROAD,
CELL C1 = LONDON,
CELL D1 = AB12 3AB
CELL E1 = UNITED KINGDOM

我知道我可以在用户表单中创建5个单行文本框,但我希望通过将所有内容复制到1个文本框而不是5个来节省时间。

请帮忙。

谢谢!

1 个答案:

答案 0 :(得分:0)

我存储在单元格 H5 中的数据,但您可以使用Var或文本框等来源...
如果要保存在单元格中,请使用:

Range("A1:E1").Value = Split(Range("H5").Value, Chr(10))

如果您想要操作数组(将值放在单独的文本框中),请使用

myarr = Split(Range("H5").Value, Chr(10))