Tag: 转置

将多行转换为列: 我遇到了这个任务，我被困在一个很大的时间。我试过了一个数据透视表，但没有给我想要的结果。唯一可行的是手动转置，但是logging的数量是5k个奇数。我想在这里实现的是将公司的行中的数据转换为列，以便稍后阶段能够计算每个公司的票数和平均数。

什么是最有效的方式来转置这个表的所有除了2列（如在这张图片）？: 我想在Excel或Access中完成此操作。我需要find最有效的方法来做到这一点，否则我的用户不会一直这样做。最终，我希望它是在最后的forms，以使查询在Access中，但我列出的Excel作为一个选项，因为我总是可以从电子表格导入到Access。简而言之，我想转置除了前2列以外的每一列。然后，我要为每个转置的行分配原始对应的item和description 。我使用的方法是使用Excel中的转置粘贴复制和粘贴第3,4和5行，然后手动将每个项目和描述复制到相应的行，但这对于近400行和50列是不可行的我的用户将与之合作。我有访问Access / VB的经验，Excel（但在这里没有VB的经验），和SQL。我想find最快的方法来做到这一点。我不介意build立查询或进入一些VB代码，我只是真的想这个工作。

VBA：转置最后一行: 我试图转置我的电子表格的最后一行，以便它成为一列。我已经开始这样，我检索电子表格的最后一列/行号，但我不知道如何使它转换与Application.transpose(myarray)或Application.WorksheetFunction.Transpose(myarray)数组， Dim lRow As Long, lCol As Long lRow = Cells(Rows.Count, 1).End(xlUp).Row lCol = Cells(1, Columns.Count).End(xlToLeft).Column 有小费吗？谢谢

在Excel中dynamic地转换表: 我需要一些build议，以下任务，我有一个Excel工作表2列RESPONSIBLE和服务（见Sheet1的附件）我需要在另一个Excel工作表上创build附加文件中的Sheet2matrix。

使用VBA从excel中获取数据到office数组: 我有一个Excel文件，其中存储在列中的一些文本和关键字。我想使用Excel中的数据，使用vba在Word中进行一些高级search。但是我收到一个错误，试图将excel单元格中的数据转换为vba单词中的数组。我已经使用了转置excel函数，但它不处理超过255个字符，所以我无法获得超过255个字符的单元格的值。如果有人能帮我一把，我会很感激。 Option Explicit Dim strArray Dim range As range Dim i As Long Dim numberOfUniqMatches As Integer Dim totalMatches As Integer Sub HighlightMatchesAndSummarize() totalMatches = 0 '************************************ GET DATA FROM EXCEL *************************************** Dim xlApp As Object Dim xlBook As Object Const strWorkBookName As String = "D:\keyword_source_3.xlsx" On Error Resume Next Set […]

Exce 2013l：转置标题和计数matrix: 有可能从表中dynamic生成一个总matrix？我有一些学生列出他们的课程标记（“1”符号）：我需要调换标题，并且统计每个课程有多less同学有两门课程，就像这样：是否可以dynamic？

根据会议条件转换数组: 我有一套价值观，叙述和交易date。价值和交易可能会重演。我需要在旁边单元格中的另一个工作表和重复date中列出值和旁白。例如： Date Narration Value 01/01/2016 Ramu $500 02/01/2016 John $1000 03/01/2016 Sumil $300 04/02/2016 Ramu $500 05/02/2016 John $1000 06/02/2016 Sumil $300 01/03/2016 Ramu $500 我需要以这种方式在另一个单元格中列出启动值 Narration Value Date Ramu $500 01/01/2016- 04/02/2016- 01/03/2016 Sumil $300 03/01/2016- 06/02/2016 John $1000 02/01/2016 -05/02/2016

将excel导出为csv – 将数字格式保留为文本: 我从这里使用这个代码来转换excel到csv文件。这是工作完美（感谢纳特）。现在我面临一个问题：因为我想从这个文件中读取Autocad表格，所以我需要将csv数字格式设置为“文本”格式（现在是“常规”格式，通常在打开Excel文件）。当我导入我的CSV数据时，它会省略前导零单元格，并将1：100更改为0.01。当我用Excel打开CSV文件，并将这些单元格格式更改为“文本”，然后保存并closures文件，它工作正常。我怎么能自动化这个过程（或者首先保存文本格式），因为我不希望每个用户手动执行此操作。谢谢 Private Sub Exporttocsv() Dim ColNum As Integer Dim Line As String Dim LineValues() As Variant Dim OutputFileNum As Integer Dim PathName As String Dim RowNum As Integer Dim SheetValues() As Variant PathName = Application.ActiveWorkbook.Path OutputFileNum = FreeFile Open PathName & "\Test.csv" For Output Lock Write As #OutputFileNum SheetValues […]

Excel VBA转换与字符: 我有一个范围与918细胞（A1：A918）。每个单元格有一个string。我需要vba代码用引号（“”）括住每个单元格，并在末尾添加一个逗号（，）。然后转置列表。我无法将这些字符添加到当前列表中。例如 CURRENT LIST (Sheet1) Cell A1: Bob Cell A2: Jane Cell A3: Dan Cell A4: Phil Cell A5: Jimmy RESULT (Sheet2) Cell A1: "Bob", Cell B1: "Jane", Cell C1: "Dan", Cell D1: "Phil", Cell E1: "Jimmy", It will appear like this: "Bob", "Jane", "Dan", "Phil", "Jimmy" 我知道使用以下来转置： Worksheets("Sheet1").Range("A1:A5").Copy Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True […]

在Excel中设置触发器将一个表格中的列转换为另一个表格中的新行: 我的查询是如何设置一个触发器，如果一个新的列被input到SheetA中，我希望它转置并写入SheetB中的下一个可用行。我做了一个macros录制，VBA脚本如下： Sub Macro5() ' ' Macro5 Macro ' ' Keyboard Shortcut: Ctrl+p ' Range("A1:E1").Select Selection.FormulaArray = "=TRANSPOSE(Sheet1!RC:R[4]C)" End Sub 请告诉我如何处理这个问题，因为我对VBA非常陌生，并且没有设置这样的触发器。在此先感谢您的帮助。