Question

我有一个sub，作为其中的一部分，我将数据从文本转换为列，我想指定转换所在的位置。想法是用户选择要开始的单元格，子进程通过它处理并将数据从文本转换为以激活的单元格列开始的列。我想理想地将偏移位置保存为变量，以便我可以在sub的其余部分进一步操作它。我的数据是＆＃34; _＆＃34;分隔。

currentCell = ActiveCell.Address
Dim newLocation As Range
newLocation = ActiveCell.Offset(0,5)
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns _
    Destination:=Range(newLocation), _
    DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=False, _
    Tab:=False, _
    Semicolon:=False, _
    Comma:=False, _
    Space:=False, _
    Other:=True, _
    OtherChar:="_"

Answer 1

您需要使用设置并修复目的地行：

<link rel="stylesheet" href="//maxcdn.bootstrapcdn.com/font-awesome/4.3.0/css/font-awesome.min.css">

将范围偏移存储为列的可变用户定义文本

1 个答案: