Excel 找不到有关使用用户选定单元格的信息
你好!通过哪种方式挖掘以了解如何使用用户选择的单元格 例如:有一系列垂直单元格1 2 3 4 5。我选择它们并使用宏将它们转换为水平视图Excel 找不到有关使用用户选定单元格的信息,excel,vba,Excel,Vba,你好!通过哪种方式挖掘以了解如何使用用户选择的单元格 例如:有一系列垂直单元格1 2 3 4 5。我选择它们并使用宏将它们转换为水平视图 我知道如何使用excel本身的内置函数来实现这一点。但我找不到使用用户选择的单元格的示例。如果录制宏,则宏将与最初选定的单元格一起使用。用户选定的范围在“选择”中可用 例如: Sub TransposeSelectionToNextColumn() Selection.Offset(0, 1).Resize(1, Selection.Rows.Coun
我知道如何使用excel本身的内置函数来实现这一点。但我找不到使用用户选择的单元格的示例。如果录制宏,则宏将与最初选定的单元格一起使用。用户选定的范围在“选择”中可用 例如:
Sub TransposeSelectionToNextColumn()
Selection.Offset(0, 1).Resize(1, Selection.Rows.Count).Value = Application.WorksheetFunction.Transpose(Selection)
End Sub
我找到了工作代码
Sub Selection1()
Dim SourceRange As Range
Dim DestRange As Range
Set SourceRange = Application.InputBox(Prompt:="Please select the range to transpose", Title:="Transpose Rows to Columns", Type:=8)
Set DestRange = Application.InputBox(Prompt:="Select the upper left cell of the destination range", Title:="Transpose Rows to Columns", Type:=8)
SourceRange.Copy
DestRange.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
End Sub
仍然需要了解如何删除带有行的选定单元格。此答案显示了如何要求用户选择单元格。这与您关于用户选择的单元格的问题不同,这意味着这些单元格已被选择。你要么改变你的问题,要么接受我下面的回答。