excel - 如何从包装单元格中获取前两行文本？

Question

我需要从 Excel 中的包装单元格中获取前两行文本。例如，包装的 Excel 单元格包含如下文本:

wrapedtext1

wrappedtext2

wrappedtext3

wrappedtext4

我只需要前两行作为“wrappedtext1wrappedtext2”。可能吗？

Answer 1

I only need to get first two lines as 'wrapedtext1wrappedtext2' .Is it possible???

是的，可能是可能的，但没有没有简单的方法来实现它。您必须考虑很多因素。

1) 行高(以像素为单位)

2) 字体类型和大小

3) 行距

4)单元格是否合并？

5) 单元格是否处于自动调整状态

6) 所有文本都是普通模式还是有粗体/斜体/下划线字符等

考虑这个快照

例如，行高(以像素为单位)可以源自

Debug.Print Range("A1").Height * (24 / 18)

上述情况下的字体大小可以由此实现

Debug.Print Range("A1").Font.Size

但挑战是在下面的场景中会发生什么？

在我看来，实现你想要的东西太痛苦了。最好的部分是使用 ALT + Enter插入换行符，然后检索文本。

跟进

字符串通过 vba 代码输入到包装的单元格中。那么如何通过按alt + Enter来插入数据呢？ – 1355 4 小时前

在这种情况下，您也可以采取类似的方法。

Sub Sample()
    Dim strg As String

    strg = "This is a sample" & vbCrLf & _
           "sentence which is" & vbCrLf & _
           "in Cell A1 and the" & vbCrLf & _
           "text is separated" & vbCrLf & _
           "with line breaks"

    With Range("A1")
        .Columns(1).ColumnWidth = 16.86
        .Font.Name = "Calibri"
        .Font.Size = 11
        .Value = strg
    End With
End Sub

注意:对于上述内容您必须录制宏并查看可以采用特定格式的字体、字体大小和列宽。同样，您必须考虑这样一个事实:我上面给出的示例适用于新工作表中的非格式化单元格。如果您正在写入合并单元格或按格式设置的单元格，那么您将必须相应地更改上述代码，这可以通过录制宏轻松实现。 我还假设 ZOOM 级别设置为 100%

快照

HTH

席德