Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 找不到有关使用用户选定单元格的信息_Excel_Vba - Fatal编程技术网

Excel 找不到有关使用用户选定单元格的信息

Excel 找不到有关使用用户选定单元格的信息,excel,vba,Excel,Vba,你好!通过哪种方式挖掘以了解如何使用用户选择的单元格 例如:有一系列垂直单元格1 2 3 4 5。我选择它们并使用宏将它们转换为水平视图 我知道如何使用excel本身的内置函数来实现这一点。但我找不到使用用户选择的单元格的示例。如果录制宏,则宏将与最初选定的单元格一起使用。用户选定的范围在“选择”中可用 例如: Sub TransposeSelectionToNextColumn() Selection.Offset(0, 1).Resize(1, Selection.Rows.Coun

你好!通过哪种方式挖掘以了解如何使用用户选择的单元格

例如:有一系列垂直单元格1 2 3 4 5。我选择它们并使用宏将它们转换为水平视图


我知道如何使用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

仍然需要了解如何删除带有行的选定单元格。

此答案显示了如何要求用户选择单元格。这与您关于用户选择的单元格的问题不同,这意味着这些单元格已被选择。你要么改变你的问题,要么接受我下面的回答。