在生成值时删除 excel 中的 alt+enter
remove alt+enter in excel while generating values
我遇到了行尾问题,你们能告诉我如何解决吗?当我在 excel 中输入一个值然后执行 Alt+Enter 时,该单元格中的值将中断并移动到下一行。我想在单行中制作它。不知道该怎么做。
例如,现在我得到这样的输出:
EnvName=testing testing
testing testing`
但生成的输出应该是这样的:
EnvName=testing testing testing testing
在下面提供我的代码
Sub export()
Dim i As Long
Value = Sheets(Itm).Cells(i, 4).Value
'If InStr(1, Sheets(Itm).Cells(i, 4).Value, " ") Then
' Value = """" & Sheets(Itm).Cells(i, 4).Value & """"
'End If
Close 1
End Sub
每当您从 sheet 的单元格中获取一个值时,如果其中可能有换行符,那么您需要替换它,以避免在输出中出现相同的换行符:
Value = Replace(Sheets(Itm).Cells(i, 4).Value, vbLf, "")
不确定您想用什么来替换换行符:这里我使用了一个空字符串,但您可以使用任何其他字符串。
我遇到了行尾问题,你们能告诉我如何解决吗?当我在 excel 中输入一个值然后执行 Alt+Enter 时,该单元格中的值将中断并移动到下一行。我想在单行中制作它。不知道该怎么做。
例如,现在我得到这样的输出:
EnvName=testing testing
testing testing`
但生成的输出应该是这样的:
EnvName=testing testing testing testing
在下面提供我的代码
Sub export()
Dim i As Long
Value = Sheets(Itm).Cells(i, 4).Value
'If InStr(1, Sheets(Itm).Cells(i, 4).Value, " ") Then
' Value = """" & Sheets(Itm).Cells(i, 4).Value & """"
'End If
Close 1
End Sub
每当您从 sheet 的单元格中获取一个值时,如果其中可能有换行符,那么您需要替换它,以避免在输出中出现相同的换行符:
Value = Replace(Sheets(Itm).Cells(i, 4).Value, vbLf, "")
不确定您想用什么来替换换行符:这里我使用了一个空字符串,但您可以使用任何其他字符串。