Вот пример кода для других листов, но это не очень помогает в том, что я пытаюсь сделать: Sub WriteQuote() Dim SourceFile As String Dim data As String Dim ToFile As Integer Dim sh1, sh2, sh3 As Worksheet Set sh1 = Sheets("sheet 1") Set sh2 = Sheets("sheet 2") Set sh3 = Sheets("sheet 3") SourceFile = "C:\Users\███████\Desktop\test.txt" ToFile = FreeFile Open SourceFile For Output As #ToFile 'PRINT DETAILS TO TXT FILE For i = 7 To 56 If sh1.Range("B" & i).Value "" Then data = sh1.Range("B" & i).Value & "_" If sh1.Range("D" & i).Value "" Then data = data & sh1.Range("D" & i).Value & "_" Else: data = data & " _" End If If sh1.Range("E" & i).Value "" Then data = data & "ns" & "_" Else: data = data & " _" End If data = data & sh1.Range("F" & i).Value & "_" data = data & sh1.Range("G" & i).Value & "_" data = data & sh1.Range("J" & i).Value & "_" data = data & sh1.Range("M" & i).Value Else: Exit For End If Print #ToFile, data Next i Close #ToFile End Sub In the opened window click the button next to the word "Value". Again click the right mouse button and go to the menu command "paste Special".
Around the selected range will appear dotted snake. To formula to convert to numbers, highlight the number and press the right mouse button. Put the mouse cursor in the lower right corner to display a black cross, press the right button of the mouse and slide it to the length of the row of numbers you want to receive. Then select the range that includes the cell, the first and the second resulting from the application of the formula, figure.
Then through the desired number of cells in the desired cell after write the following formula: put an equals sign, then click in the first cell with the number to dial on the keypad "+" and put the number you want to increase the number of cells following the first. To do this, select the first cell number from which the countdown will start. to number, skipping a few of them and with a difference of a few units (for example: every second, different from the previous five). In Excel, you can enumerate cells in an arbitrary format, i.e.
0 kommentar(er)
